I think I see the problem:Copy frmCalendar as frmCalendar2Change all references to "ActiveCell" to"frmCowEnrollment!txtEnrollDate.Value"Make the calling sub:Private Sub cmdCallCalendar_Click()frmCalendar2.ShowEnd Sub*Not tried*