ファイルを保存して保存する準備をするために使用されるこのコードがありますが、Excel が「エラーに遭遇」して閉じます。エラーを .execute 行に固定しました。
これが原因でクラッシュが発生するのはなぜですか?回避策はありますか?
Sub Save_close()
Dim Ws As Worksheet
Dim Wb As Workbook
Application.DisplayAlerts = False
MsgBox "Do you want to Save a new copy", vbYesNo, "Save New"
If vbYes Then
Workbooks("A380 Master.xlsm").Sheets("OutPutSheet").Range("C:C", "F:F").Delete
For Each Ws In ActiveWorkbook.Sheets
If Not Ws.Name = "OutputSheet" Or Ws.Name = "Sheet1" Then
Ws.Delete
ElseIf Ws.Name = "OutputSheet" Or Ws.Name = "Sheet1" Then
End If
Next Ws
With Application.FileDialog(msoFileDialogSaveAs)
.Show
.Execute
End With
ElseIf vbNo Then
'Workbooks("A380 Master.xlsm").Sheets("OutPutSheet").Range("A1").Select
End If
End Sub