I believe you could combine the Workbook_SheetDeactivate and
Workbook_SheetActivate event handlers to accomplish this. Try this code in
the ThisWorkbook module of your project. The Deactivate event is triggered
before the sheet is deleted and saves the sheet name to a variable. The
Activate event is triggered after the sheet is deleted, which tests for the
existence of the previous active sheet.


Dim strLastSheet As String

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim wksTemp As Worksheet

On Error Resume Next
Set wksTemp = Worksheets(strLastSheet)
If wksTemp Is Nothing Then MsgBox "Sheet Deleted"

End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
strLastSheet = Sh.Name
End Sub

"Dev" wrote:

Is there a way to see if user selects "Delete Sheet"?

I am trying to delete custom doc properties attached to that sheet when user
delete a sheet - how do I trigger this event? I don't see any ID number for
"Delete Sheet"

Thanks for any suggesstion...