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 - Kirk


--
kirkm
------------------------------------------------------------------------
kirkm's Profile: http://www.excelforum.com/member.php...o&userid=35814
View this thread: http://www.excelforum.com/showthread...hreadid=555888

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

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

kirkm wrote:

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 - Kirk

--
kirkm
------------------------------------------------------------------------
kirkm's Profile: http://www.excelforum.com/member.php...o&userid=35814
View this thread: http://www.excelforum.com/showthread...hreadid=555888

--

Dave Peterson