Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next
If Source.Address = "$A$1" Then Sh.Name = Application.Proper(Format(Source, "mmmm"))
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
If Source.Address <> "$A$1" Then Exit Sub
On Error Resume Next
Sh.Name = Application.Proper(Format(Source, "mmmm"))
[COLOR="Red"]If Source <> "" And (Err Or Not IsDate(Source)) Then Application.Undo[/COLOR]
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
On Error Resume Next
Sh.Name = Application.Proper(Format(Sh.Range("A1"), "mmmm"))
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Application.EnableEvents = False
On Error Resume Next
Sh.Name = Application.Proper(Format(Sh.Range("A1"), "mmmm"))
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Application.EnableEvents = False
On Error Resume Next
Sh.Name = Application.Proper(Format(Sh.Range("A1"), "[COLOR="Red"]mmmm yy[/COLOR]"))
Application.EnableEvents = True
End Sub