Doug, Yeah, I found the answer when I was documenting the code. I think I got it right.
Sub SetPRange()
' Author - Doug Jenkins, Interactive Design Services
' Create a range named "PrintRange" with the top left cell in the correct position
Dim NumCells As Variant, PRange As Range, StartRow As...