Hi, Burl,

The underscore is merely cosmtic - it serves to break long lines of code.

The real difference was the deletion of your Select.


---
Regards,
Norman


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

Try changing:

Set oRange = ActiveSheet.Range(Selection,
Selection.End(xlDown)).Select

to:

Set oRange = ActiveSheet.Range _
(Selection, Selection.End(xlDown))

---
Regards,
Norman