highlightcellswithcomments

'*******************************************************************************
'  Highlight All Cells with Comments
' --NOTE: can change color
'                           ~ AJ Javadi ~
'*******************************************************************************
Option Explicit

Sub HighlightCellsWithComments()

ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Interior.Color = vbYellow

End Sub