Simple!

Change
i As Long,
to
i As Long , j As Long,

Change
Set Rng = .Duplicate
to
Set Rng = .Duplicate: j = j +1

Change
Set Rng = Nothing
to
Set Rng = Nothing: MsgBox j & " documents created", vbInformation

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]