VBA Find関数で検索した値をFor Eachで表示する方法

VBA初心者です

Find関数で検索した値をFor Eachを用いて取り出し、ファイル名やアドレスを表示させたいのですが、検索値のセルのアドレスを表示できなくて困っています。

以下コードがコードの抜粋で、☆の部分が間違っていると感じています。
現在の状態ですと、Range範囲内のすべてのセルのアドレスが表示されてしまう状況で、検索値のアドレスだけを表示させたいです。

よろしくお願いいたします。

ーーーーーーーーーーーーーーーーーーーーーーー
With シート.UsedRange

              'シートのセルデータを検索する
              'Find ステートメントは、Rangeオブジェクトを返すので、Set で代入
              
              Set 見つかったセル _
                 = .Find(what:=検索文字列 _
                    , LookIn:=xlValues _
                    , LookAt:=xlPart _
                    , MatchByte:=False)
                    

             For Each 見つかったセル In シート.UsedRange

              If Not 見つかったセル Is Nothing Then　…　☆

              
       　　 '検索対象が存在した場合､置換処理をする

                 ブック数 = ブック数 + 1            
                 
                 
                 '処理結果を、配列に書き込む
                 
                    ブック名配列(ブック数, 1) = ブック数                        
                    ブック名配列(ブック数, 2) = フォルダ名                       
                    ブック名配列(ブック数, 3) = ファイル名
                    ブック名配列(ブック数, 4) = シート.Name
                    ブック名配列(ブック数, 5) = 見つかったセル.Address(RowAbsolute:=False, ColumnAbsolute:=False)
                                              
              End If

              
              Next
              'セル・オブジェクトを解放する
              Set 見つかったセル = Nothing
           End With 'シートで、データが登録されているセル全体   
              
        Next シート