Excel VisualBasic Script

Sub SelectCommentCells()
    Cells.SpecialCells(xlCellTypeComments).Select
End Sub