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
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.