Как определить, отображается ли ячейка рабочего листа в VBA?

Мне нужно найти, видна ли ячейка на экране.

Под видимым я не подразумеваю скрытое. Я специально пытаюсь выяснить, отображается ли ячейка в данный момент на активном листе или она не отображается, т.е. :она была прокручена с видимого активного листа.

Я искал в Интернете и могу найти только следующий код, который, похоже, не работает для меня:

Private Sub CommandButton1_Click()
    With Worksheets(1).Cells(10, 10)
        'MsgBox "Value: " &.Value & ", Top: " &.Top & ", Left: " &.Left
        Dim visibleCells As Range
        Set visibleCells = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
        If Intersect(Worksheets(1).Cells(10, 10), visibleCells) Is Nothing Then
            MsgBox "This cell is not visible."
        End If
    End With
End Sub

Заранее спасибо за помощь,

Марван