Hi Rich,


LRow = Cells(Rows.Count, "A").End(xlUp)

was intended as:

Dim LRow as long


LRow = Cells(Rows.Count, "A").End(xlUp).Row


---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Rich,

You might want to consider defining the last row like:

LRow = Cells(Rows.Count, "A").End(xlUp)

Change "A" to the column of interest.

To reset tthe used range, see Debra Dalgleish's notes at:

http://www.contextures.com/xlfaqApp.html#Unused


---
Regards,
Norman