How can I close the workbook using a button and via the normal way

[inddon]

Hello there,

I am trying to save and close a workbook using a button and not the normal way. It doesn't seem to do anything. Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sub CloseWB ()
   With ActiveWorkbook
      .....some code
      .Close SaveChanges:=True
   End With
End Sub

Could you please advice how this can be achieve?

Appreciate you help.


regards,
Don