Hi,

the prob is not with the typo. I realised it later and changed but it still
don't work.

Regards,
Dolphin

"Stefi" wrote:

You misspelled
ActivSheet.Name = myAdjName
Insert an "e":
ActiveSheet.Name = myAdjName
Regards,
Stefi


€žDolphinv4€� ezt Ã*rta:

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!