T4250_Check If Worksheet Exists Using Evaluate ISREF

https://excel-egy.com/forum/t4250
---------------------------------

Sub Check_If_Worksheet_Exists_Using_Evaluate_ISREF()
    Dim x, ws As Worksheet, sh As Worksheet, s As String

    Set ws = ThisWorkbook.Worksheets(1)
    s = "نوبة " & ws.Range("C2").Value
    If Evaluate("ISREF('" & s & "'!A1)") = False Then Exit Sub Else Set sh = ThisWorkbook.Worksheets(s)

    x = Application.Match(ws.Range("B10").Value2, sh.Columns(2), 0)
    If Not IsError(x) Then sh.Range("C" & x).Resize(1, 4).Value = ws.Range("C10").Resize(1, 4).Value
End Sub