This works fine for me
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets(1).Name = Range("A1").Value
End Sub
I wouldb't use Sheets(1) though because if the tabs are re-arranged then it will refer to a different workbook. If the code refers to the sheet that holds the code then use
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = Range("A1").Value
End Sub
or if not use
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet1.Name = Range("A1").Value
End Sub
Bookmarks