Thank you so much for your quick response.

I have tried both routines and both cause and error message a
follows.

Runtime Error 438
Object doesn't support this property or method.

I have entered values for LastRow=ActiveSheet.UsedRange.Row-1+_

I have used positive and negative integers and keep getting the erro
message.

Apparently I am still missing something here. Thanks again..

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