I want to be able to keep that calendar directly under the freeze pane line when I scroll. I have used this code to do it (sort of).
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar_A.Left = Cells(1, ActiveWindow.ScrollColumn).Left + 810
Calendar_A.Top =...