If there are no empty rows or columns within the data
Dim rng as Range
set rng = Range("A1").Current.Region
If you have a particular column you want to look at (for example, th
3rd column, column C)
lastrow = Cells(rows.count,3).End(xlup).row
and if row1 can be used to determine the number of columns
lastColumn = cells(1,columns.count).end(xltoLeft).Column
set rng = Range(Range("A1"),Cells(LastRow, LastColumn))
--
Regards,
Tom Ogilv
--
Message posted from
http://www.ExcelForum.com