エクセルVBA 組み込みダイアログのコンパイルエラーについて

ファイル保存のための組み込みダイアログでデフォルトの名前を指定したい場合、

Application.Dialogs(xlDialogSaveAs).Show 'ARG1:="あたらしいファイル", ARG2:=1)

でOKなのですが、
キャンセルボタンを押された場合の処理をするため

Dim boCheck As Boolean
boCheck = Application.Dialogs(xlDialogSaveAs).Show 'ARG1:="あたらしいファイル", ARG2:=1)
If boCheck = False Then
キャンセルの場合の処理
Else
そうでない場合の処理
End if

とするとコンパイルエラーになります。
どこが悪いのでしょうか？

No.1 ベストアンサー 回答者： PAPA0427 回答日時： 2003/10/26 12:23

Public Sub test()

Dim boCheck As Boolean
boCheck = Application.Dialogs(xlDialogSaveAs).Show 'ARG1:="あたらしいファイル", ARG2:=1)
If boCheck = False Then
'キャンセルの場合の処理
Else
'そうでない場合の処理
End If
End Sub
と言う風に関数にしてください。

この回答へのお礼

boCheck = Application.Dialogs(xlDialogSaveAs).Show(ARG1:="あたらしいファイル", ARG2:=1) でした。
ありがとうございました。

お礼日時：2003/10/26 22:20