Excel (VBA) - Verificar se célula está visível

[Kerouac]

Bom dia a todos!

Através do VBA no Excel, é possível saber se determinada célula está visível na tela?

Percebam que minha dúvida não é em relação a células ocultas ou visíveis (propriedade Hidden), mas apenas se a célula está visível na tela.

Desde já agradeço e um abraço!

[benzadeus]

Sub Exemplo()
    Dim b As Boolean
    Dim rng As Range
    
    Set rng = Range("A3")
    b = EstáVisível(rng)
    
    If b Then
        MsgBox "A célula " & rng.Address(0, 0) & " está visível na janela ativa." _
          , vbInformation
    Else
        MsgBox "A célula " & rng.Address(0, 0) & " não está visível na janela ativa." _
          , vbInformation
    End If
    
End Sub

Function EstáVisível(rng As Range) As Boolean
    EstáVisível = Not Intersect(rng, ActiveWindow.VisibleRange) Is Nothing
End Function

[Walace.Teixeira]

como eu faço um post para pedir ajuda !? não sei fazer ...