regeen_sonu
New Member
- Joined
- Jul 23, 2010
- Messages
- 4
ive got a macro which works with hidden sheets within the workbook - when i hide the sheets the macro gives errors and will not run. when i unhide the sheets everything runs fine!
I have got a workbook which has 8 sheets. Index, Contact Details, SLA, WO Review, SLAM Reports, SA Reports, CCR Reports, Samples. The index sheet has Command buttons which direct them to the respective other sheets. What i want is the excel should aways open with the index sheet, and all the other sheets shud not be visible. Is it Posssible. Please find the code in the index sheet
Private Sub CommandButton1_Click()
'
' Contact Macro
'
'
Sheets("Contact Details").Select
End Sub
Private Sub CommandButton2_Click()
'
' Contact Macro
'
'
Sheets("SLA").Select
End Sub
Private Sub CommandButton3_Click()
'
' Contact Macro
'
'
Sheets("SLAM Reports").Select
End Sub
Private Sub CommandButton4_Click()
'
' Contact Macro
'
'
Sheets("SAM Reports").Select
End Sub
Private Sub CommandButton5_Click()
'
' Contact Macro
'
'
Sheets("CCR Reports").Select
End Sub
Private Sub CommandButton7_Click()
'
' Contact Macro
'
'
Sheets("WO Review").Select
End Sub
I have got a workbook which has 8 sheets. Index, Contact Details, SLA, WO Review, SLAM Reports, SA Reports, CCR Reports, Samples. The index sheet has Command buttons which direct them to the respective other sheets. What i want is the excel should aways open with the index sheet, and all the other sheets shud not be visible. Is it Posssible. Please find the code in the index sheet
Private Sub CommandButton1_Click()
'
' Contact Macro
'
'
Sheets("Contact Details").Select
End Sub
Private Sub CommandButton2_Click()
'
' Contact Macro
'
'
Sheets("SLA").Select
End Sub
Private Sub CommandButton3_Click()
'
' Contact Macro
'
'
Sheets("SLAM Reports").Select
End Sub
Private Sub CommandButton4_Click()
'
' Contact Macro
'
'
Sheets("SAM Reports").Select
End Sub
Private Sub CommandButton5_Click()
'
' Contact Macro
'
'
Sheets("CCR Reports").Select
End Sub
Private Sub CommandButton7_Click()
'
' Contact Macro
'
'
Sheets("WO Review").Select
End Sub