That did it! Can't thank you all enough for your knowledge!!
Have a great day!
--
Veronica.


"Herbert Seidenberg" wrote:

Try
Sub NameShToday()
Dim td As Date
Dim d As Long
Dim e As Long
Dim m As String
Dim y As Long
td = Date
d = Day(td)
e = Month(td)
m = MonthName(e, 1)
y = Year(td)
Sheets("Sheet1").Name = _
m & "-" & d & "-" & y
End Sub