Loop when Calendar Selected

[Rocky0201]

Hi...

I entered code In my UserForm1 to pop up a calendar when TextBox18 is double clicked.

Private Sub TextBox18_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm3.Show
TextBox18.Value = DateValueText
End Sub

The code for my calendar is:

Private Sub Calendar1_Click()
DateValueText = Calendar1.Value
Unload Me
End Sub
Private Sub UserForm_Initialize()
Calendar1.Value = Date

End Sub

After the Calendar pops up and I select a date from the calendar, the code goes into a loop and I have to press the reset button in my macro screen.

If I put a breakpoint at TextBox18.Value = DateValueText in UserForm1, The loop does not happen.

Please let me know what I am doing wrong.

I am using Excel 2007. The additional controls that I used is Calendar Controls 12.0.

Thanks...

 

[John_w]

Try:

Private Sub TextBox18_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm3.Show
    Me.Hide
    TextBox18.Value = DateValueText
    Me.Show
End Sub

 

[Rocky0201]

Thanks John...

Seems to work great.....