And one more...

Option Explicit
Sub auto_open()

Dim iCtr As Long
Dim CurMonthName As String

CurMonthName = Format(Date, "mmm")

On Error Resume Next 'just in case of naming problems
'show the current month
Worksheets(CurMonthName).Visible = True
For iCtr = 1 To Worksheets.Count
If LCase(Worksheets(iCtr).Name) = LCase(CurMonthName) Then
'do nothing--it's already shown
Else
Worksheets(iCtr).Visible = False
End If
Next iCtr
On Error GoTo 0

End Sub

JudithJubilee wrote:

Hello there,

I have a large number of spreadsheets each with 12 sheets
named after the abbreviations of months.

I only want my users to be able to see the relevant
month's sheet, ie. if in January hide all the other month
sheets. OR. At least protect the other sheets so they
cannot edit the other sheets figures.

All the spreadsheets will be saved into the same shared
folder.

I'm thinking that maybe there a way of doing this each
month for the multiple workbooks, or have a macro the
runs automatically each month?????

Any input in this will be VERY gratefully received!!

Cheers

Judith

--

Dave Peterson