Hallo Habe100,
vielleicht so:
Option Explicit
Sub Zelle()
Dim Bereich As Range
Set Bereich = Range("A1:B10")
If Intersect(ActiveCell, Bereich) Is Nothing Then
MsgBox "Tabelle1 Zelle A1:B10 auswählen"
Exit Sub
Else
'Dein Makro X
End If
End Sub
Gruß
fedjo