Macro for renaming worksheets
 

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

Macro for renaming worksheets
 

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
"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

Macro for renaming worksheets
 

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

Macro for renaming worksheets
 

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

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

Macro for renaming worksheets
 

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