Thank you. I got that part of my code working.

"Tom Ogilvy" wrote:

at the top of the module (module10) outside any procedures (subs or
functions)

Public nDate as Date

Sub Testit()
msgbox nDate
End Sub

--
Regards,
Tom Ogilvy

"Erik" wrote in message
...
Right. But how do I reference ndate in a sub in module 1?

"Tom Ogilvy" wrote:

Private sub Calendar1_click()
ndate = userform1.calendar1.value
End Sub