Need Comments list from Worksheet

[kirkm]

Hello - I'm after a list of all the comments and was given this

Sub newthing()
For i = 0 To Worksheets(1).Comments.Count
Debug.Print i, Worksheets(1).Comments(i).Parent, "###",
Worksheets(1).Comments(i).Text
Next
End Sub

A added 'Dim i' to it but all I could get was

Run-time error '9':
Subscript out of range

Any help appreciated.
Thanks - Kir

 

[Dave Peterson]

Maybe you can make it even prettier by printing from word:

http://www.contextures.com/xlcomments03.html#CopyToWord
(Debra Dalgleish's site)