Pasted

'*******************************************************************************
'  Highlight All Cells with Comments
' --NOTE: can change color
'                           ~ AJ Javadi ~
'*******************************************************************************
Option Explicit
 
Sub HighlightCellsWithComments()
 
ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Interior.Color = vbYellow
 
End Sub