Display Calendar at Top of Cell Grid

[fetchboi88]

I have a command button in cell A1, with the first row of the sheet frozen. When you click the command button, I'd like a calendar to be displayed under it. My problem is, however, that when the calendar is shown, it's only shown on cell A2, so if the user has scrolled down to row 100, you cannot see the calendar.

Is there a way to get the calendar to be shown under the first row no matter where the user has scrolled to?

Here's the non-working code i have now:

Private Sub cmdGoTo_Click()
    If Calendar1.Visible = False Then
        'i think the first row that is visible needs to be determined before this
        Calendar1.Top = Range("A1").Rows.Top + Range("A1").Rows.Height
        Calendar1.Left = cmdGoTo.Left + cmdGoTo.Width
        Calendar1.Height = 179.25
        Calendar1.Width = 274.5
            
        Calendar1.Visible = True
    Else
        Calendar1.Visible = False
    End If
End Sub

 

[Weaver]

This might do it:

Private Sub cmdGoTo_Click()
    Dim topRow As Long
    If Calendar1.Visible = False Then
        topRow = ActiveWindow.VisibleRange.Row
        Calendar1.Top = Rows(topRow).Top + Rows(topRow).Height
        Calendar1.Left = cmdGoTo.Left + cmdGoTo.Width
        Calendar1.Height = 179.25
        Calendar1.Width = 274.5
            
        Calendar1.Visible = True
    Else
        Calendar1.Visible = False
    End If
End Sub

 

[fetchboi88]

ahhhh VisibleRange - i was looking ffor something like that.

Thank you - i'll give it a shot at work tomorrow.

 

[fetchboi88]

Worked like a charm!!! Thanks!