Don,
Where exactly do I insert this formula?

calibronco

"Don Guillett" wrote:

try this
Sub changewsname()
newmonth = InputBox("Enter 3 letter code for month desired")
For Each ws In Worksheets
If Left(ws.Name, 5) < "Sheet" _
And IsNumeric(Right(ws.Name, 1)) Then
ws.Name = Application.Proper _
(newmonth & Right(ws.Name, Len(ws.Name) - 3))
End If
Next ws
End Sub

--
Don Guillett
SalesAid Software

"calibronco" wrote in message
...
How can I rename the worksheet tabs at one time. EXAMPLE: I created a
months
work of worksheets for the month of JANUARY. Now I need to change them to
FEBRUARY. Jan-1,Jan-2,Jan3 to Feb-1,Feb2,Feb3 without ahve to go to each
tab.

Can it be done?