Brian,

This works, and I can follow most of the script. I modified a few things to fit my needs, but your scripts works great.
One questions if I could, what do these lines do:

' Begin undo record
Set bhhUndo = Application.UndoRecord
bhhUndo.StartCustomRecord (scriptName)

I tested them by commenting them out (and the next to last line) and it still worked. Am I risking anything by not including them?

I really appreciate the time you took to help me - thank you!