Chk sheet names of 2 wrkbk & delete if not matching

Wrkbk1: MyProject_1
Wrkbk2: MyProject_2

Both workbook are opened and Wrkbk1 is active.

Upon execution, match sheet names of wrkbk1 with wrkb2 and vice versa

If any sheet does not matching, then delete the sheet from wrkbk1/wrbk2.

Code:

---

Sub test()
Const Book1 As String = "My_Project_1.xls"
Const Book2 As String = "My_Project_2.xls"
Dim oWs As Worksheet
Dim oTarget As Worksheet
For Each oWs In Workbooks(Book1).Worksheets
        Set oTarget = Nothing
        On Error Resume Next
            Set oTarget = Workbooks(Book2).Worksheets(oWs.Name)
        On Error GoTo 0
        If oTarget Is Nothing Then
            Application.DisplayAlerts = False
            oWs.Delete
            Application.DisplayAlerts = True
        End If
    Next oWs
For Each oWs In Workbooks(Book2).Worksheets
        Set oTarget = Nothing
        On Error Resume Next
            Set oTarget = Workbooks(Book1).Worksheets(oWs.Name)
        On Error GoTo 0
        If oTarget Is Nothing Then
            Application.DisplayAlerts = False
            oWs.Delete
            Application.DisplayAlerts = True
        End If
    Next oWs
End Sub

---

solved perfect... thankyou.

regards,
ilyaskazi