Delete Sheets

[hOSAMnOOR]

Hi

How I can Delete The Sheets through Code ? With msg box confermation ?

Thanks

 

[Fluff]

Try

Sub DelSh()
If MsgBox("Delete sheet " & ActiveSheet.name & " ?", vbYesNo + vbQuestion) = vbYes Then
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
End If
End Sub

 

[twothings]

Thanks Fluff, I have tried that however it is causing Excel to crash when deleting a sheet. Error is "Microsoft Excel has stopped working".