Month wise calender macro

I am trying to prepare month wise calender. So my spreadsheet has 12 tabs for each month. On top of each tab i want to place a macro which should hide all active tabs except for the month we want to view.

For eg. we are viewing Sept. 2013. At this point of time only sept. 2013 tab is visible.

On top left Aug, 2013 and top right Oct. 2013 is written. So when a user click on Aug 2013, All tabs should go invisible ONLY August 2013 remain visible. Same way when user click on Oct. 2013, All tabs should go invisible ONLY October 2013 remain visible.

Please see the attached excel. Thanks in advanceAttachment 1333

Hi,

ALT+F11 to open VB editor. Double click 'ThisWorkbook' and paste the code below in on the right. Close VB editor.
Click a worksheet month in Q4 to Q15.
Note you must now save your workbook as a macro enabled workbook with a .XLSM extension.

Code:

---

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Dim x As Long
If Not Intersect(Target, Sh.Range("Q4:Q15")) Is Nothing Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    For x = 1 To Worksheets.Count
    Sheets(x).Visible = True
    Next
    For x = 1 To Worksheets.Count
    If UCase(Left(Sheets(x).Name, 3)) <> UCase(Left(Target.Value, 3)) Then
        Sheets(x).Visible = False
    End If
    Next
    Range(Target.Address).Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End If
End Sub

---

Thank you Mike..!