Rename Sheets Names automatically

hi,
i am more then 10 sheets on my workbook with different names and changes name accordingly my needs.


but two sheets name never changes,
1 = "sheet1"
2 = "sheet2"

i want to rename both sheets when i switch to sheet
for example

if i activate the "sheet2" then i goes to rename auto with "sheet1" and "sheet1" goes to rename "sheet2"

thank you in advannce

5B:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Sh.Name = "Sheet2" Then
     Sh.Name = "ZZZ"
     Sheets("Sheet1").Name = "Sheet2"
     Sh.Name = "Sheet1"
  End If
End Sub