Auric__ formulated on Tuesday :
Auric__ wrote:

kalpesh wrote:

any cell in between A1:B10 range is active macro will run

This is a variation on the question you asked yesterday. Using a
variation of the code I posted there should work:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case ActiveCell.Column
Case 1, 2
If ActiveCell.Row < 11 Then
'your code here
End If
End Select
End Sub

Put that in the worksheet's class and put your code where it says "your
code here".

...or just use isabella's code, which I *think* might be faster and/or
"better" than mine.

Actually, this is faster AND more efficient<g...

If Not Intersect(Target, Range("A1:B10")) Is Nothing Then _
MsgBox Target.Address

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc