『複数のシートだとどうなるのですか』（三沢）

 郵便番号を検索するファイルを作ろうと、データをダウンロードしましたが、
 とても大きくて、一枚のシートでは開けないので、県別に４７シートを作りました。
 郵便番号を入力すれば、該当のデータのシート、該当の行にカーソルがいくようにしたいと思って、
 例えば「9500212」だと、新潟県のシートを選んで記録すると、

 Sub Macro1()
    Cells.Find(What:="9500212", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
 End Sub

 となってうまくいくのですが、シートが４７枚もあるので、よそのシートにいるとだめです。
 できれば、検索画面という名のシートを増やして、そこに表示させたいのですが、
 どのように書いたらよいでしょうか。
 すみません、どなたかお分かりになる方、ご教授下さい。