Type POINTAPI
  X As Long
  Y As Long
End Type

Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long

Dim DoStop As Boolean

' Запуск цикла
Sub RunRangeFromPoint()

  Dim cpos As POINTAPI, obj As Object

    Do
      GetCursorPos cpos
      Set obj = ActiveWindow.RangeFromPoint(cpos.X, cpos.Y)
      If TypeName(obj) = "Nothing" And ActiveWindow.WindowNumber = 1 Then ActiveWindow.ActivateNext
      DoEvents
    Loop Until DoStop

End Sub

Sub Test()
    On Error Resume Next
    Dim rr As ListObject
    Set rr = Sheets("Лист1").Range("Таблица2[Столбец1]")
    If rr Is Nothing Then
        MsgBox "Таблица2 отсутствует на листе 1", vbInformation
    End If
End Sub