In theabsence of another reply .. I use a Microsoft Calendar Control, but it might be different to yours. The method here is to see what the names of the textboxes are via Properties and use them as follows :-
Code:
Sub Button1_Click()
frmCalendar.Show
ActiveSheet.Cells(1, 2).Value = frmCalendar!txtFrom.Value
ActiveSheet.Cells(2, 2).Value = frmCalendar!txtTo.Value
End Sub
-----------------------
Regards BrianB
Most problems occur from starting at the wrong place.
Use a cup of coffee to make Windows run faster.
It is easy until you know how.