マクロス…じゃなくて、エクセルで全シートを対象に検索をするマクロ(^_^;

以前エクセルを使っていて、ブック内の全シートを対象に検索したいことがあり、いろいろ探してこのマクロを見つけました(^^)

http://www.bekkoame.ne.jp/~poetlabo/COMP/Excel/VBASAMP/Find.txt

ずっとこのマクロを愛用してきたのですが、実は時々なんだか腑に落ちないびみょ～な感じがありました。でも、それがなんなのかにはずっと気付かずにきました。

ずっと気にはなっていたのですが、本日やっと気がつきました(^_^;
それは、一枚のシートの中で、検索にヒットする部分があると、そのシートの検索はその時点で終了し、検索対象が次のシートに移っていたのでした。
だから、シートＡに実際にはヒットする部分が２ヶ所以上あっても、１ヶ所だけしかヒットしていなかったのです。

そこで、マクロ不得意なワタシがヘルプファイルとにらめっこして、下記のように書き直しました。
（太字の部分が今回の変更部分）

コレなら大丈夫ですよね…たぶん(^_^;


Option Private Module
'********************************************************************
' 全シート検索
'
' 全シートに渡って検索を続けます
'
' Copyright(C) 2000, 魔術幻燈
' http://www.bekkoame.ne.jp/%7Epoetlabo/
' poetlabo@cap.bekkoame.ne.jp
'
'********************************************************************
Sub 全シート検索()
　　Dim ws As Worksheet
　　Dim 検索文字列 As String, 該当 As Range
　　Dim 回数 As Integer

'　検索終了時に元のシート、元のセルをアクティブにするための準備
　　Set 元のシート = ActiveSheet
　　Set 元のセル = ActiveCell

　　検索文字列 = InputBox(Chr(13) & Chr(13) & "　　　検索する文字列は？", "全シート検索")
　　If 検索文字列 = "" Then Exit Sub

　　For Each ws In Worksheets
　　　ws.Select
　　　Set 該当 = ws.UsedRange.Find(What:=検索文字列)
　　　If Not 該当 Is Nothing Then
　　　　firstAddress = 該当.Address
　　　　Do
　　　　　該当.Select
　　　　　回数 = 回数 + 1
　　　　　If MsgBox("検索を続けますか？", 36, "全シート検索") = vbNo Then Exit Sub
　　　　　Set 該当 = ws.UsedRange.FindNext(該当)
　　　　Loop While Not 該当 Is Nothing And 該当.Address <> firstAddress
　　　End If
　　Next

　　If 回数 = 0 Then
　　　MsgBox """" & 検索文字列 & """ はありませんでした。", 48, "全シート検索終了"
　　Else
　　　MsgBox """" & 検索文字列 & """ は" & 回数 & "個ありました。", 64, "全シート検索終了"
　　End If

' 元のシート、セルに戻す
　　元のシート.Select
　　元のセル.Select

End Sub