طلب تعديل كواد زر اختصار الصنف في شاشة المبيعات

كود :
Dim Name       As String

Dim x       As Long

'وضعت شرط بحيث لو كانت علي زر في حالت =+ يظهر مشج هلتريد اضافة زر اختصار

If Command1.Caption = "+" Then

Dim msg1

' InputBox في حالت مسخدم ضغط علي موافق يظهر مسج

msg1 = MsgBox("هل تريد اضافة زر اختصار", vbYesNo, "تبيه")

If msg1 = vbYes Then

x = InputBox("ادخل رقم التجاري", "اختصارات")

'x= شرط الاخر في حالت العمود الاول

If x = Sheet1.Cells(x, 1).Value Then

'   تحقق الشرط يظهر المسج 2 بأسم الصنف

Name = InputBox("ادخل اسم الصنف", "اختصارات", sheet2.Cells(x, 2).Value)

Command1.Caption = Name

ElseIf x <> Sheet1.Cells(x, 1).Value Then

'   اذا لم يتحقق الشرط يظهر المسج لا يوجد هذه الصنف

x = MsgBox("لايوجد هذه الصنف", 16, "تبيه")

End If

End If

End If

Dim lr2     As Long

Dim y       As Long

lr2 = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row

For y = 1 To lr2

'ولكن اذا تحقق الشرط سوف يتم تغير اسم الزر بأسم الصنف

'   شرط الاخر اذا تحقق الشرط اذا اسم الزر =العمود الثاني

If Sheet1.Range("b" & y).Text = Command1.Caption Then

'   يجلب بيانات العمود الاول في التكس بوكس

Text1.Text = Sheet1.Range("a" & y).Text

Exit Sub

End If

Next y