エクセル 複数シート検索のマクロ
以前、下記の質問をさせてもらい
---- 以下 ---------------
エクセルの文字列検索で、複数シートにまたがった場合のマクロ記述を知りたいです。
シートaとシートbの選択は下記となると思いますが、
Sub Macro1()
Sheets(Array("a", "b")).Select
Sheets("a").Activate
End Sub
その後で、検索窓（[ctrl]+[f]）を表示させたいのですが・・・。
---- 以上 ---------------
に対して、以下のご回答を受けたのですが、
Sub TEST01()
Sheets(Array("a", "b")).Select
Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
うまく行く場合もあるのですが（と思い解決で締め切ってしまいました）、大抵の場合（該当文字列が複数あるとき？）にフリーズしてしまいます。
上記マクロだと、「検索する文字列」タイトルで[次を検索][閉じる][置換]ボタンが表示され（古いOffice？）、
マクロを使用しない通常の[ctrl]+[f]だと、「検索と置換」タイトルで[検索]と[置換]タグが表示されます（Office2003）。
また、マクロを実行した後は通常の[ctrl]+[f]、[編集]-[検索]が効かなくなってしまいます。
この部分はフリーズとは無関係かもしれませんが・・・。
フリーズしないマクロの記述と、出来れば検索終了後に特定のシートに戻るようなマクロも追加したいです。
また、別件になりますが、ファイルを開いた時に必ず特定のシートに位置づけられる事ができればそれもご教授願いたいです。
