Italophile thanks for joining the discussion.

I tried your suggestion and it worked a bit farther into the code.

It now throws the same error on the line of:

Do While .Characters.First.Previous = vbCr

I tried: Do While HdFt.Characters.First.Previous = vbCr

and

Do While HdFt.Range.Characters.First.Previous = vbCr

but neither worked.