You need to use the intersect method like this:

Sub Run_in_range()
If Intersect(ActiveCell, Range("A1:A10")) Is Nothing Then
MsgBox "The active cell does NOT Intersect A1:A10 " &
Activecell.address
Else
MsgBox "The active cell does Intersect A1:A10 " & Activecell.address
'your call for a macro or your code here
End If
End Sub


--
The Code Cage Team

Regards,
The Code Cage Team
www.thecodecage.com
------------------------------------------------------------------------
The Code Cage Team's Profile: http://www.thecodecage.com/forumz/member.php?userid=2
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=25998