Sub Macro1()
'
' Macro1 Macro
' Macro recorded 7/28/2003
ActiveSheet.Select
ActiveWindow.SelectedSheets.Delete
End Sub
-----Original Message-----
Hi,

When you have deleted a sheet and catch it in the
deactivate event, is
there a property in the object model that indicates that
you have
selected delete sheet? The reason why I need to know is
because the
deactivate event is fired even when you switch between
sheets and I
only want to perform certain actions when delete has
been selected?

Thanks,

Rick
.

Does anyone have any ideas on my original question? See my first post
in this message??

Hi Rick:

There is no trappable Worksheet_Delete event. A workaround might be to use
the Deactivate event and then check if the worksheet still exists.

Regards,

Vasant.


"Rick De Marco" wrote in message
om...
Does anyone have any ideas on my original question? See my first post
in this message??

Thanks Vasant,

Do you know if there is a way to cancel a sheet being deleted once a
user has selected delete on the excel delete message box? Basically i am
trying to stop users from deleteing a sheet if it has certain data in
it. I don't want to protect the worksheet/workbook.. I will be doing my
checking in the deactivate event and if certain criteria are meet then i
need to cancel the delete..

Any ideas?

Rick


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Sorry, Rick; AFAIK there is no way to prevent deletion of a sheet (without
protecting the workbook).

Regards,

Vasant.

"Rick De Marco" wrote in message
...
Thanks Vasant,

Do you know if there is a way to cancel a sheet being deleted once a
user has selected delete on the excel delete message box? Basically i am
trying to stop users from deleteing a sheet if it has certain data in
it. I don't want to protect the worksheet/workbook.. I will be doing my
checking in the deactivate event and if certain criteria are meet then i
need to cancel the delete..

Any ideas?

Rick


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

(Rick De Marco) wrote in message . com...
Does anyone have any ideas on my original question? See my first post
in this message??

Yes, make Excel's two Delete Sheet buttons run your own macro instead.

Private Sub Workbook_Open()
CommandBars("Edit").FindControl(ID:=847).OnAction = "MySheetDeleteMacro"
CommandBars("Ply").FindControl(ID:=847).OnAction = "MySheetDeleteMacro"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
CommandBars("Edit").FindControl(ID:=847).OnAction = ""
CommandBars("Ply").FindControl(ID:=847).OnAction = ""
End Sub

Sub MySheetDeleteMacro()
MsgBox "Do you really want to delete " & ActiveSheet.Name & " ?"
End Sub


Regards,
Vic Eldridge