مشكورين وفي ميزان حسناتكم
انا لدي نفس مشكلة اخي سعد عابد
وعملت الخطوات من انشاء اختصار للاكسل
ولما اضغط يمين كليك و اظهار الخصائص
تظهر نافذه اخرى غير التي في شرحك
ارجو الافاده
جرب هذا
Private Sub CommandButton1_Click()
Me.TextBox1.Value = Application.Match(Val(3), Workbooks("الادخال").Sheets("الفواتير").Range("a1:a15000"), 0)
End Sub