'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and then enter
Private Sub Workbook_Open()
.... your code
End Sub
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Natalie" wrote in message
...
Hello All,
I have numerous sheets and I would like to show or hide
them based on the month. IE. If it is Jan hide all my
other sheets apart from the Jan sheet, this is to stop
people seeing the data.
I got the following code from an MVP from this site. But
I don't know what to do with it. I'm a beginner in Vb so
please bear with me!!
Dim MyMonth As Integer
MyMonth = Month(Now())
Select Case MyMonth
Case 1 'If month number is 1 (Jan)
Sheets("Feb").Visible = False
Sheets("Mar").Visible = False
Case 2 'If Month number is 2 (Feb)
Sheets("Jan").Visible = False
Sheets("March").Visible = False
Case 3 'If Month number is 3 (Mar)
Sheets("Jan").Visible = False
Sheets("Mar").Visible = True
Sheets("Feb").Visible = False
End Select
End Sub
The Expert suggested I put this in the Open workbook
event??? Where is that please?
Thank for reading
Natalie