Jim,
thank you for the assistance, this code worked beautifully.

Joe

"Jim Cone" wrote in message
...
Sub NameThemPuppies()
Dim sht As Object
For Each sht In Sheets
Select Case True
Case sht.Name = "Sheet1"
sht.Name = "Mush"
Case sht.Name = "Sheet2"
sht.Name = "Oatmeal"
Case sht.Name = "Sheet3"
sht.Name = "Corn Flakes"
Case sht.Name = "Sheet4"
sht.Name = "Cheerios"
End Select
Next 'sht
End Sub

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Joe"
wrote in message
Good evening all,
I am trying to write a macro that renames the worksheets within a
workbook. My problem is that the same worksheets don't always exist in
every
workbook. I am trying to create the macro to use an If statement to skip
over the worksheet if it doesn't exist without halting on an error. Thank
you in advance.
Joe