Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.newusers
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.newusers
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.newusers
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.newusers
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.newusers
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Renaming worksheets | Excel Discussion (Misc queries) | |||
RENAMING WORKSHEETS | Excel Worksheet Functions | |||
renaming worksheets/objects in VBA | Excel Worksheet Functions | |||
Renaming worksheets | Excel Discussion (Misc queries) | |||
Renaming Worksheets | Excel Worksheet Functions |