Suppose you want "Sheet1" and cell A5 to be the active ones.

If ActiveSheet.Name < "Sheet1" Or _
ActiveCell.Address < "$A$5" Then
MsgBox "Blah blah" 'optional
Exit Sub
End If