Try changing:
Code:
With ActiveDocument.Range
'Process each word from the Player List
For i = 1 To UBound(Split(xlFRList, "|"))
to:
Code:
'Process each word from the Player List
For i = 1 To UBound(Split(xlFRList, "|"))
With ActiveDocument.Range
and:
to:
As you can see, this is just a simple matter of moving two lines and changing the indenting. The indenting is of no consequence though, to the code's execution.