Excel VBA 文字を次々に検索して処理をする

エクセルでＶＢＡをつかって、文字列を検索して処理をしていく方法をメモ

'[XLS:アクティブシートの文字を次々に検索して処理をする]  
  Dim findRange As Range
  Dim findString As String  
  findString = "hogehoge"  '<---- ここに検索したい文字を記入  
  With ActiveSheet.UsedRange
    Set findRange = .Find(findString, LookIn:=xlFormulas, LookAt:=xlPart)
    If Not findRange Is Nothing Then
      Do
        '************************************************
        ' 検索されたRangeオブジェクトに対する処理を書く
        '************************************************
        Set findRange = .FindNext(findRange)
       Loop Until findRange Is Nothing
    End If
  End With