Require code correction to prevent current drop down calendar from displaying below the bottom edge of the application.
Will provide source code for the calendar and the code calling the calendar.
Calendar and selection of date works fine except if it is called from a row near the bottom of the screen the calendar extends below the screen.
‘// Calling Sub
Private Sub dgGLT_CellButtonClick(ByVal row As Long, ByVal col As Long)
Dim lfrmNewPopup As frmPopup
Select Case col
Set lfrmNewPopup = New frmPopup
[url removed, login to view] dgGLT, row, col
Set lfrmNewPopup = Nothing