Hi,

Right click any sheet tab and paste this in and run it. Note ive included no
error trapping so if you don't have at least 12 sheets this fails

Sub name_Sheets()
For x = 1 To 12
Sheets(x).Name = MonthName(x)
Next
End Sub

Mike

"lehigh46" wrote:

Hi All

I want to create a work book with 12 sheet tabs named from January to
December.
Is thee any way to name all 12 sheet tabs in one operation?


Thanks for your help.