Go to the vba editor, insert a new form into the workbook. On that
form, insert a Calendar Control. Go the code of the form (F7), insert
the following macro in there:
Private Sub cal1_Click()
ActiveCell.Value = cal1.Value
Unload Me
End Sub
(I assume you named the calendar control cal1)
Then go to the code of the worksheet, that you want that thing to work
on. Insert the following code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
calform.Show
Application.EnableEvents = True
End Sub
That's it.
Regards
lolo
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.