Macro to Name Sheet
Hi,
I want my sheet name to automatically be named as Date(Adj) whereby the Date
will be obtained from cell A1. This is what i did but it don't work. What's
wrong?
Sub New_Month()
Dim myAdjName As String
myAdjName = Format(Range("A1").Value, "mmm") & "(ADJ)"
ActivSheet.Name = myAdjName
End Sub
Thanks!
|