エクセルのブックを閉じるマクロについて

質問

エクセルのブックＡとブックＢが開いている状態で、
ブックＡのボタンに登録して実行すると、ブックＡのみ閉じる、
というマクロを作りました。（下部にコードを記載します）

このマクロは、２つのブックが開いていると正常に稼働するのですが、
ブックが１つしかない場合、実行時エラーが出てしまいます。

（ブックＡのみ開いた状態でこのボタンを押してもエラーなく閉じたい）

実行時エラーが出ないようにするにはどうすれば良いか、
おわかりの方がいらっしゃいましたら教えて下さい。

どうぞよろしくお願い致します。

Sub このブックのみ閉じる()
Dim wa As String

wa = "ほかに無い"

Dim wb As Workbook

For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then
wa = "ほかにあるよ"
End If
Next

If wa = "ほかに無い" Then
Application.DisplayAlerts = False
Application.Quit '終了予定
End If

Range("D2").Select
Selection.ClearContents

ThisWorkbook.Close SaveChanges:=False
End Sub

回答No.2

HohoPapa · ベストアンサー

私はこんな風に書いています。

'//------------------------------------------------------------------------------------------------
'//　自身を保存して閉じ、他にエクセルが動作していないなら、エクセルを終了する
'//------------------------------------------------------------------------------------------------
Sub EndJob()
　'ThisWorkbook.Activate
　ThisWorkbook.Save
　Application.WindowState = xlNormal
　If Application.Workbooks.Count = 1 Then
　　'Application.DisplayAlerts = False
　　'ThisWorkbook.Saved = True
　　Application.Quit
　Else
　　'Application.DisplayAlerts = False
　　'Thisworkbook.Close (False)
　　ThisWorkbook.Close
　End If
End Sub

回答No.1

kon555

こちらの環境だと動作自体はするけどメッセージが出てる、という感じなので下の形にしてエラーだけ無視するのが手っ取り早いですね。

If wa = "ほかに無い" Then
　Application.DisplayAlerts = False
　On Error Resume Next
　Application.Quit '終了予定
End If

あとわざわざFor Eachしなくても、Workbooks.Countでいいような。