Sub commentirov()
  Dim cmt As comment
    On Error Resume Next
    Set ws = ActiveSheet

    If ws Is Nothing Then Exit Sub
    On Error GoTo  0 
    
    For Each cmt In ws.Comments
      k = cmt.Text(" Нужный текст", Len(cmt.Text) +  1 )
      
' нижеследующее просто, для более красивого вида комментариев. 
      cmt.Shape.TextFrame.AutoSize = True

        If cmt.Shape.Width >  250  Then
          y = cmt.Shape.Width * cmt.Shape.Height
          cmt.Shape.Width =  150 
          cmt.Shape.Height = (y /  200 ) *  1 . 2 
       End If
    Next
 End Sub