كود vbA للبحث عن نفس اسم الشيت المفتوح في ملف اكسيل اخر

[best smile]

السلام عليكم ورحمة الله وبركاته 
من فضلكم لقد وضعت عدد 2 من الملفات في المرفقات وهم ملف بأسم a والاخر بأسم B
ما اريده هو البحث عن نفس اسم الشيت المفتوح في الملف a ويتم البحث عن نفس اسم الشيت الموجود في الملف a  في الملف b  واذا تم ايجاد الملف يتم عمل كوبي من f4:f11 ووضعهم في a1  في الملف a
وجزاكم الله كل خير
شكرا جزيلا 
 

a.xlsx b.xlsx

[lionheart]

Sub Test()
    Dim x, temp, myDir As String, fn As String, wsName As String
    myDir = ThisWorkbook.Path & "\"
    fn = "B.xlsx"
    wsName = ActiveSheet.Name
    If Dir(myDir & fn) = "" Then MsgBox "Workbook Not Found", vbExclamation: Exit Sub
    On Error Resume Next
        x = ExecuteExcel4Macro("'" & myDir & "[" & fn & "]" & wsName & "'!R1C1")
        temp = Err.Number
    On Error GoTo 0
    If (temp = 0) * (Not IsError(x)) Then
        With ActiveSheet.Range("A1:A8")
            .Formula = "='" & myDir & "[" & fn & "]" & wsName & "'!F4"
            .Value = .Value
        End With
    Else
        MsgBox "Worksheet Not Found", vbExclamation
    End If
End Sub

 

[best smile]

@lionheart
شكرا جزيلا اخي الفاضل 
جزاك الله كل خير