التحقق من قيمة في مصنف اخر مغلق

Sub Check()



Application.ScreenUpdating = False

Application.DisplayStatusBar = False

Application.EnableEvents = False



Dim mydata As String

Dim wb As Workbook



Set wb = Workbooks.Open(ThisWorkbook.Path & "\test1.xlsx")

If wb.Worksheets("Sheet1").Range("C3").Value = "a9a" <> Empty Then

        

       MsgBox "The value is correct", 64

       

       Else

       

myError:



       MsgBox "The value is incorrect", 64



     End If



Application.ScreenUpdating = True

Application.DisplayStatusBar = True

Application.EnableEvents = True



End Sub