I an using a "Worksheet_Change" event. I want to test is "Target" is within
a range of Cells.

My range is K7:P7.

I tried: If (Target.Address(False, False) = Range("K7").Address(False,
False) _
And Target.Address(False, False) <= Range("P7").Address(False, False))

When I click on a Cell within, K7 and P7, it get a true response. Good.

But when I click on "M8", I also get a true response, Not good.

What am I doing wrong?

Thank you...

IF Not Intersect(Target, Range("K7:P7") ) Is Nothing Then
'target is inside the range
End If

"Bruce A. Julseth" wrote in message
...
I an using a "Worksheet_Change" event. I want to test is "Target" is
within a range of Cells.

My range is K7:P7.

I tried: If (Target.Address(False, False) = Range("K7").Address(False,
False) _
And Target.Address(False, False) <= Range("P7").Address(False,
False))

When I click on a Cell within, K7 and P7, it get a true response. Good.

But when I click on "M8", I also get a true response, Not good.

What am I doing wrong?

Thank you...

Try the following (untestedP

Dim anyR as range
on error resume next
set anyr = intersect(target, range("K7:P7"))
on error goto 0
if anyr is nothing then
'not in range
else
'in range
end if

Its easier to do an Intersect and see if a cell is in a range than other
approaches.

Robert Flanagan
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel


"Bruce A. Julseth" wrote in message
...
I an using a "Worksheet_Change" event. I want to test is "Target" is within
a range of Cells.

My range is K7:P7.

I tried: If (Target.Address(False, False) = Range("K7").Address(False,
False) _
And Target.Address(False, False) <= Range("P7").Address(False,
False))

When I click on a Cell within, K7 and P7, it get a true response. Good.

But when I click on "M8", I also get a true response, Not good.

What am I doing wrong?

Thank you...

Works like a "Champ"

Thanks...

"Patrick Molloy" wrote in message
...
IF Not Intersect(Target, Range("K7:P7") ) Is Nothing Then
'target is inside the range
End If

"Bruce A. Julseth" wrote in message
...
I an using a "Worksheet_Change" event. I want to test is "Target" is
within a range of Cells.

My range is K7:P7.

I tried: If (Target.Address(False, False) = Range("K7").Address(False,
False) _
And Target.Address(False, False) <= Range("P7").Address(False,
False))

When I click on a Cell within, K7 and P7, it get a true response. Good.

But when I click on "M8", I also get a true response, Not good.

What am I doing wrong?

Thank you...

Hi,

Try one of these

For a contiguous range
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then

or a none contiguous range
If Not Intersect(Target, Range("A1,C1,E1")) Is Nothing Then

Mike

"Bruce A. Julseth" wrote:

I an using a "Worksheet_Change" event. I want to test is "Target" is within
a range of Cells.

My range is K7:P7.

I tried: If (Target.Address(False, False) = Range("K7").Address(False,
False) _
And Target.Address(False, False) <= Range("P7").Address(False, False))

When I click on a Cell within, K7 and P7, it get a true response. Good.

But when I click on "M8", I also get a true response, Not good.

What am I doing wrong?

Thank you...


.