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