Display current date on excel calendar

[Prevost]

Hi There,

I have read some posts but I am still unsure about this. I have a macro on my sheet that runs whenever I double click certain cells. The calendar pops up and I can select a date from that calendar. Now I know that the calendar date defaults to whenever the calendar was created, instead of today's date. I would like the calendar to display today's current date as it makes the selection much easier. Now I have a few questions...

1. Where do I insert the code to have the calendar display the current date? I have code in the sheet, form and module...
2. Do I have to use the name of the calendars or are they defaulted to Calendar1, Calendar2 etc...

I think that should get me going. I am sorry if this is repeating but I was unclear from the posts that I read.

Any help is greatly appreciated. Thanks!

 

[XLRATOR]

Under your form's Activate event

UserForm_Activate()

Try:

Me.YourCalendarsName.Value=Date

Karim

 

[Prevost]

Hi Karim,
I am not sure what you mean by Activate event. I have code on my sheet that says when a certain range of cells is double clicked, my procedure titled 'EnterDateMultipleCells' is called from a module. My module code is

Sub EnterDateMultipleCells()
    frmEnterCalendarMultipleCell.Show
End Sub

'frmEnterCalendarMultipleCell.Show' is under Forms. The code on that form is

'This code was inserted automatically when I generated the calendar

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
   On Error Resume Next
   Dim cell As Object
   For Each cell In Selection.Cells
      cell.Value = DateClicked
   Next cell
   Unload Me
End Sub

I would assume that it would be in the Form section where I would enter in your suggested code?

Thanks

 

[Prevost]

Do I have to declare my calendar's name? As in Me.MyCalendarsName.Value=Date...when I put that code in my form..either as an Activate or Initialize...it results in an error. I am sure I am just missing something simple here.
Thanks.