View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Robert Flanagan Robert Flanagan is offline
external usenet poster
 
Posts: 71
Default Testing for a Cell within a range

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...