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

"JR_06062005" wrote in message
...
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.