Macro to automatically add comment boxes

[lawlegge]

Greetings;

I am using this macro to add comment boxes, containing specific text, to worksheets. I have columns 'A' to 'E' frozen and only add to columns 'F' and beyond by manually setting the 'Range' as needed.

Sub AddACTS_CONS_RANGE()
Dim ocel As Range
On Error Resume Next
For Each ocel In ActiveSheet.Range("F2:AC100")
  ocel.AddComment.Text Text:="ACTS:" & Chr(10) & Chr(10) & "" & Chr(10) & "CONS:" & Chr(10) & Chr(10) & ""
  ocel.Comment.Shape.TextFrame.Characters(1, 5).Font.Bold = True
  ocel.Comment.Shape.TextFrame.Characters(9, 5).Font.Bold = True
  ocel.Comment.Shape.TextFrame.AutoSize = True
Next
End Sub

What I would like it to do is:
- only add comment boxes to rows that contain '.wag' (that is-dot wag) in column 'E' - thus leaving all other rows UN-commented.

Thanking you in advance,
lawlegge