try ONE of these lines:followed by:lr = Range("A1").End(xlDown).Row lr = Cells(Rows.Count, "A").End(xlUp).RowSceValues = Range("A2:B" & lr).Value
try ONE of these lines:followed by:lr = Range("A1").End(xlDown).Row lr = Cells(Rows.Count, "A").End(xlUp).RowSceValues = Range("A2:B" & lr).Value
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.
Posting Permissions
Reply With Quote