Copy below code in Worksheet Module (Right click on Tab , Click on
"View Code" , Paste below code)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("AH1").Value < Range("AI1").Value Then
Call DisplayCalendar
End If
End Sub

Regards