ファイルの別名保存の方法

こんにちは。
Excelの素人です。blg.を参考に、ファイルの別名保存ボタンを作りましたが、別名保存後うまく終了してくれません。
現象は終了マクロから名前をつけて保存してもファイルが終了しません。もう一度ボタンをクリックするといきなり終了します。
素人の悲しさで、どこを修正すればよいのか悩んでいます。

Sub 別名保存後終了()
If ThisWorkbook.Saved = False Then
strFilename = ThisWorkbook.Path & "\" & _
"データ作成" & "_" & _
Format(Date, "yyyymmdd") & ".xls"
strFilename = Application.GetSaveAsFilename( _
FileFilter:="Excelファイル,*.xls", _
InitialFileName:=strFilename, _
Title:="Excelファイルの保存")
If strFilename = "False" Then
If MsgBox("保存せずに終了します。よろしいですか？", _
vbOKCancel + vbInformation, _
"終了確認") = vbOK Then
ThisWorkbook.Saved = True
ThisWorkbook.Close
Else
Exit Sub
End If
Else
ActiveWorkbook.SaveAs strFilename
End If
Else
ThisWorkbook.Close
End If
End Sub

宜しくお願いします。

No.1 ベストアンサー 回答者： mshr1962 回答日時： 2006/04/24 16:00

前省略

ActiveWorkbook.SaveAs strFilename
ThisWorkbook.Close　'別名で保存した後に閉じる設定が抜けてます。
End If
Else
ThisWorkbook.Close
End If
End Sub

この回答へのお礼

ありがとうございます。
大変助かりました。

お礼日時：2006/04/24 20:37