Don Guillett
12/12/2006 6:49:00 PM
try
Sub renameshts()
mc = 1
For Each ws In Worksheets
If ws.Name <> "Main" Then _
ws.Name = "mysht" & mc
mc = mc + 1
Next ws
End Sub
--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"JR_06062005" <JR06062005@discussions.microsoft.com> wrote in message
news:FC1204C3-C1C1-4906-A64D-35335D187D13@microsoft.com...
> Is there another way to rename a worksheet other than
> ActiveWorkSheet.Name="New Name"?
>
> I would like to rename a series of worksheets, but am not sure how to do
> this without selecting each one.