Macro for renaming worksheets

[Joe]

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

 

[Joe]

Sorry for posting the same question twice. I am new to this type of forum
and didn't realize the first post had went through.

Joe

 

[Jim Cone]

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

 

[Joe]

Thank you very much for the reply. I do appreciate it.

Joe

 

[Joe]

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

Joe