Hello Steve,

maybe this event?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Top
End Sub

But I dont know how to get a calendar...