Macro advice please

[ccameron]

Hi Everyone,
I have been working on a workbook that I have hidden several sheets. I have made macros to unhide and hide these sheets by clicking on a button. I have been recording macros for each sheet, is it possible to record a macro that I can use for all the sheets to save time. I'm not sure what to do, it will have to hide the active sheet and go to a sheet called directory. The code below is what I have used on one of the sheets.

Sub CondIndexGoToDir()
'
' CondIndexGoToDir Macro
'
'
Sheets("Condition Index").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Directory").Select
Range("E1:O3").Select
End Sub

Any help would be greatly appreciated.
Thanks in advance for your help.

ccameron

 

[RSXchin]

Sub CondIndexGoToDir()
'
' CondIndexGoToDir Macro
'
'
    if activesheet.name = "Directory" then exit sub
    ActiveSheet.Visible = False
    Sheets("Directory").Select
    Range("E1:O3").Select
End Sub

 

[ccameron]

Thanks rsxchin,
Works well