Hi both,

Thanks. I really appreciate your support.

I tried both options, but they didn't seem to work. @Macropod, the debugger flagged an issue at:

.Cells(1).Range.Text = DocSrc.Comments(n).Scope.Information(wdActiveEndPa geNumber)