Snasui Excel Forum

Code: Select all

Sub Test()

Dim WS As Worksheet

For Each WS In Sheets
   WS.Name = WS.Range("A1")
Next WS

End Sub

Code: Select all

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then
        Call Test
    End If
End Sub

Code: Select all

    If Sh.Name = "Sheet1" And Target.Address(0, 0) = "A1" Then
        Call Test
    End If

Code: Select all

Sub test()
    Dim WS As Worksheet
    Set WS = ActiveSheet
    WS.Name = WS.Range("a1").Value
End Sub