calendar control-how to select a date n go to dated sheet

[gregfibersoft]

Hello all, i am still working on the schedule book. I have a workbook in which all the sheetnames are dates such as Mon 11 Aug. I have a sheet made for every day of the year.

I want to embed a calendar control on all the sheets and be able to click on a date on the control and have it go to the sheet that matches that date.

Any help would be greatly appreciated!!!!!

 

[venkat1926]

try this macro . by the by 11 Aug 2007 is Saturday so your sheet should be named "sat 11 Aug". if it is some other year when 11 Aug is Monday it is ok
the macro is to be parked in each of the sheets as event code (rightlick sheet tab and click view code and copy macro.
perhaps better solution may be available.

Private Sub Calendar1_Click()
Dim x
x = Calendar1.Value
'MsgBox x
Range("a1") = x
Dim y As String
y = WorksheetFunction.Text(x, "ddd dd mmm")
MsgBox y
Worksheets(y).Activate
End Sub