Thread: Automate Excel tabname
View Single Post
 
Old 12-05-2008, 10:37 AM
Emily Emily is offline
Novice
  
Join Date: Dec 2008
Location: Hong Kong
Posts: 7
Emily is on a distinguished road
Default
Code:
 
' Module    : Sheet3

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = "" Then Exit Sub
    If Target.Address = "$C$53" Then ActiveSheet.Name = Target
End Sub
Reply With Quote