Form Type Progress Indicator Requested.

[Didact]

Form type progress indicator requested. Could anyone code a progress indicator into the following (I'm having a heck of a time trying to decipher VB):

Sub addComments()

    ' first we'll clear existing comments
    For Each cmnt In ActiveSheet.UsedRange.Cells
        cmnt.ClearComments
    Next
    ' add a comment to cells that have something in them
    For Each cell In ActiveSheet.UsedRange.Cells
        ' add a comment with current cells
        cell.AddComment cell.Text
    Next

    ' now we will change the size of the font
    For Each cmmnt In ActiveSheet.Comments
        With cmmnt.Shape
            .TextFrame.AutoSize = True
            .AutoShapeType = msoShapeRectangle
            With .TextFrame.Characters.Font
                .Size = 11
            End With
        End With
    Next cmmnt
End Sub

-Ricardo (Technical Analyst)
Excel 2010
Excel 2013
Windows 7