Hi Pinball.
As you maybe know, excel does not have such an event.
So, I thought anothe way using calculate event.
Pls, try this and hope this help.
Before you try this you need to de-active activesheet, and re-active the sheet.
(May be you will not be able to understand what I want to say, because of my bad English...)
<pre>
Private Sub Worksheet_Activate()
Cells(Rows.Count, Columns.Count).Formula = "=A1"
End Sub
Private Sub Worksheet_Calculate()
Dim strMsg As String
If IsEmpty(Cells(Rows.Count, Columns.Count)) Then
Application.ScreenUpdating = False
Rows(Rows.Count).Clear
Columns(Columns.Count).Clear
Cells(Rows.Count, Columns.Count).Formula = "=A1"
With Selection
If .Columns.Count = Columns.Count Then strMsg = "Rows "
If .Rows.Count = Rows.Count Then strMsg = "Columns "
End With
Application.ScreenUpdating = True
Call ShowMsgBox(strMsg)
End If
End Sub
Private Sub ShowMsgBox(str)
MsgBox str & "were deleted"
End Sub
</pre>