geoff


to find last used cell in column A

looks from buttom row of spread sheet, finding first cell with an entr
iun column a

R = Cells(Rows.Count, "a").End(xlUp).Row
Range("a1:a" & R).Select

or

looks from first row of spreadsheet, finding 1st blanl cell in colum
a

R = Cells(1, "a").End(xlDown).Row
Range("a1:a" & R).Selec

--
Message posted from http://www.ExcelForum.com