Question

I have some VBA code in an Excel workbook.
I have a cell which I would like to use to close the workbook without saving (instead of using the usual (X) close button on the top right corner of excel.

If I close the workbook using the (X) button, it works great the following code.
However if I press the “CLOSE” button cell which is on the worksheet, it gives a 1004 error.

Can anyone help?

ON WORKSHEET WHERE BUTTON IS

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Cells(ActiveCell.Row, ActiveCell.Column) = "CLOSE" Then

    CloseNoSave
End If

End Sub

IN THISWORKBOOK

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    CloseNoSave

End Sub

IN MODULE

Sub CloseNoSave()

    ThisWorkbook.Close savechanges:=False
End Sub

Answer 1

Why don’t you just use a single piece of code on your Selection Event

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Value = "CLOSE" Then
        ThisWorkbook.Saved = True
        ThisWorkbook.Close
    End If
End Sub