Public Type Rect
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Public Function GetRectForRng(ByVal Target As Range) As Rect
    Dim Index As Integer
    Dim Rect As Rect
    With ActiveWindow
        For Index = 1 To .Panes.Count
            If Not Intersect(Target, .Panes(Index).VisibleRange) Is Nothing Then
                With .Panes(Index)
                    Rect.Left = .PointsToScreenPixelsX(Target.Left + 1)
                    Rect.Top = .PointsToScreenPixelsY(Target.Top + 1)
                    Rect.Right = .PointsToScreenPixelsX(Target.Left + Target.Width - 1)
                    Rect.Bottom = .PointsToScreenPixelsY(Target.Top + Target.Height - 1)
                End With
                GetRectForRng = Rect
                Exit Function
            End If
        Next
    End With
End Function