This VBA macro you copy in 'ThisWorkbook' module of your Workbook
Code:Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then 'adress of cell where is name of sheet ActiveSheet.Name = [A1] End If End Sub
Bookmarks