Thanks again for being so helpful!!

"JE McGimpsey" wrote:

One way:

Public Sub RenameWorksheets()
Dim i As Long
For i = 1 To Worksheets.Count
Worksheets(i).Name = Format(DateSerial(0, i, 1), "mmmm")
Next i
End Sub

Note that this will only work for 12 sheets or less, since sheets can't
have the same name as another sheet.




In article ,
Amanda097 wrote:

Can I also use this type of Macro to name the sheets January, February,
March, etc? I'm not familiar with macros.