رجاءا المساعدة

[المدير1122]

اريد ان اربط ملف مبيعات برقم سيريال الهارد   - افيدوني ما الخطا في هذا الكود لا يتم تفعيلة

Sub check_hard()
On Error Resume Next
If Da.Range("bb19").Value = "" Then GoTo 1
For Each c In Da.Range("bb21:bb35")
If c.Text = Da.Range("bb19").Text Then Exit Sub
Next
1  MsgBox " عفوا البرنامج غير مخصص لهذا الجهاز ", vbCritical + vbMsgBoxRight, "mahmoud "
Application.DisplayFullScreen = False
Application.DisplayAlerts = False
Application.Quit
ThisWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub