If you want to copy a list of Comments and their addresses to a new sheet
for printing use this macro from Debra Dalgleish.
Sub ListComms()
Dim Cell As Range
Dim Sh As Worksheet
Dim csh As Worksheet
Set csh = ActiveWorkbook.Worksheets.Add
csh.Name = "Comments"
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Name <> csh.Name Then
For Each Cell In Sh.UsedRange
If Not Cell.Comment Is Nothing Then
With csh.Range("a65536").End(xlUp).Offset(1, 0)
.Value = Sh.Name & " " & Cell.Address
.Offset(0, 1).Value = Cell.Comment.text
End With
End If
Next Cell
End If
Next Sh
End Sub
Gord Dibben MS Excel MVP