VBAがステップインでデバックできない

GetOpenFilenameを使ってファイルパスを取得してから処理を進めるVBAを作っていました。
取得したパスをセルに代入→本処理という流れです。
先ほど、エラーがないかとステップインで実行してみたのですが、
当該ダイアログボックスは表示されるのですが、選択して開くとその後の処理が全て実行されてしまいます。
何かプログラムで悪い部分はあるのでしょうか？

プログラム全文

Sub fileselect()
タイトル = "ファイルを選択してください。"
FileToOpen = Application.GetOpenFilename("Excel ファイル (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm", , タイトル)
Range("H6").Value = FileToOpen
End Sub

H6のセルにパスを代入する前野タイミングでMSGBOXを使ってみましたが、それも自動的に表示されたので、ステップインができない状況だと思います。
※プログラム記述の誤り、VBAの仕様等わかればご教示下さい。（Excel 2010を使っています。）