Automation error when deleting worksheet

[ipbr21054]

I am using the code shown.
My goal is to not see the confirmation message when deleting.
The below code deletes the worksheet without the confirmation message BUT the shows me an Automation Error

If i remove the False & True lines the sheet is deleted but confirmation message is shown.

Private Sub DeleteWorksheet_Click()
  Application.DisplayAlerts = False
  ActiveSheet.Delete  ' THIS WILL DELETE THE GENERATED WORKSHEET THEN ONCE DELETED RETURN TO WORKSHEET INV
  Application.DisplayAlerts = True
End Sub

 

[Peter_SSs]

I am assuming that it is because the code is deleting the worksheet that the code itself is stored in.

Try changing that worksheet module code to

Private Sub DeleteWorksheet_Click()
  Remove_Sht
End Sub

and put this code in a standard module, not the worksheet module.

Sub Remove_Sht()
  Application.DisplayAlerts = False
  ActiveSheet.Delete
  Application.DisplayAlerts = True
End Sub

 

[ipbr21054]

Spot on Thanks

Now working

 

[Peter_SSs]

You're welcome. Thanks for the confirmation.