Alter Macro from "Find cell location if blank" T o "Find cell location if "MyWord"

Hello I need to find the cell locations for cells whose value is "MyWord" in the active worksheet and have it show in a MsgBox, the code below does this for blank cells, I do not know how to alter it.

Thanks

Dim blanks As Range

With Worksheets("Comments")
  On Error Resume Next
  Set blanks = Application.Intersect(.Range("A2", .UsedRange.SpecialCells(xlCellTypeLastCell)), .Range("A:E")).SpecialCells(xlCellTypeBlanks)
  On Error GoTo 0
End With

If blanks Is Nothing Then
  MsgBox "There Are (0) Blank Cells For ""Comments"" Sheet"
Else

  blanks.Select

  MsgBox "For Comments Sheet There are (" & blanks.Cells.Count & ") Blank Cells:" & vbNewLine & vbNewLine & _
    blanks.Address

End If