I try to execute this code but the execution returns compile error. So, I try to see the code and a yellow text Subinsertrefs(), also the line Dim RngHd2 As Range, RngHd3 As Range, RngRef As Range, oPara As Paragraph With ActiveDocument.Range looks like with red lettering. Maybe a problem with that too.