studio-kazu.jpの方にレスがついていますが、それではダメだったんですか？

ダメだとしても、何か返信を入れるのが筋ですけど。。

下記のマクロですが、InputBoxで指定した文字を"Sheet1", "保存用シート"のＢ列に該当する文字があった場合にヒットする様に作成したのですが
該当する名称が全く同じ名前で複数続けてあった場合に１個づつヒットしないで別の名称を探す様にできないでしょうか？
ヒットした名称と１個したのセルが同じ名称だった場合スルーする的なイメージです
説明が下手ですみません。

下記の様な名称があった際に「山本」で検索した場合、最初に２行目でヒットしてずっと同じ名称の為次に９行目でヒットする様な感じです
1行目	田中
2行目	山本
3行目	山本
4行目	山本
5行目	山本
6行目	加藤
7行目	加藤
8行目	鈴木
9行目	山本２


Sub 件名search()
   Dim searchStr As String
   Dim 記憶 As String
   Dim sh As Worksheet
   Dim fCell As Range, fAdr As String
   記憶 = Range("AM1").Value
   searchStr = InputBox("検索する見積ファイル名を入力してください", , 記憶)
   Range("AM1").Value = searchStr
   If searchStr = "" Then Exit Sub
   For Each sh In Worksheets(Array("Sheet1", "保存用シート"))
       Set fCell = sh.Columns("B").Find(what:=searchStr)
       If Not fCell Is Nothing Then
         fAdr = fCell.Address(External:=True)
         Do
             Application.Goto fCell
             If MsgBox("次を検索しますか", vbYesNo) = vbNo Then Exit Sub
             Set fCell = sh.Columns("B").FindNext(after:=ActiveCell)
         Loop Until fAdr = fCell.Address(External:=True)
       End If
   Next
End Sub

以上よろしくお願いします。