Thanks, Tom, the last one was perfect. Now I need to print that. Hav
tried the following:

Range("A1", Cells(rwIndex, 5)).Select
worked great to select teh Range but...

ActiveSheet.PageSetup.PrintArea = Range("A1", Cells(rwIndex, 5))
errors out and

ActiveSheet.PageSetup.PrintArea = RangeSelection doesn't error bu
doesn't work either.

Thanks,
Mar

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