sorry, changed the variable name midstride:

Dim rng as Range, rng1 as Range, ar as Range
Dim lastcell as Range
set rng = rows(1).SpecialCells(xlConstants)
set rng1 = Intersect(rows(15),rng.EntireColumn)
for each ar in rng1.Areas
set lastcell = ar(ar.count)
msgbox ar(1).Address & " - " & lastcell.Address
Next

--
Regards,
Tom Ogilvy

"Magnivy" wrote in message
...
Tom,

Thanks a lot for your help. When I run a macro, it creates a Compile
Error,
saying that "The Sub or Function not defined," and the "area" in the line
"set lastcell = area(ar.count)" is highlighted. Please advise how to
overcome this.

Thank you!

Magnivy

"Tom Ogilvy" wrote:

Dim rng as Range, rng1 as Range, ar as Range
Dim lastcell as Range
set rng = rows(1).SpecialCells(xlConstants)
set rng1 = Intersect(rows(15),rng.EntireColumn)
for each ar in rng1.Areas
set lastcell = area(ar.count)
msgbox ar(1).Address & " - " & lastcell.Address

Next

--
Regards,
Tom Ogilvy


"Magnivy" wrote in message
...
Hello,

I have a macro that selects all cells in one row for which cells in
another
row are nonblanks. For example, suppose that in Sheet1, ranges C1:R1
and
U1:Z1 contain values, and the other cells in that row are blanks. The
macro
selects the corresponding cells in row 15, namely C15:R15 and U15:Z15.
This
macro then performs an operation on these cells. The problem is that I
need
the macro to perform a slightly different operation on the first and
last
cells in each of these ranges, namely cells C15,R15,U15, and Z15. I'm
having
trouble coming up with a macro that would do that. Any assistance that
you
could provide would be tremendously appreciated.

Sincerely,

Magnivy