Microsoft Office Forums - View Single Post

macropod · 06-16-2014, 03:04 AM

Extracting cell comments is quite simple. For example:

Code:

Sub ExportComments()
  Dim InputRange As Range, StrCmnt as String
  Set InputRange = Application.InputBox (prompt:= "What Range?",Type:=8)
  On Error Resume Next
  For Each cell in InputRange
    StrCmnt = StrCmnt & Cell.Address & ": " & Mid(Cell.Comment.Text, Len(Cell.Comment.Author) + 3) & vbCr
  Next
MsgBox StrCmnt
End sub

This macro will prompt for a range of cells from which to extract the comments. It will then display those comments in a message box, with the cell addresses.