Wenn ich ein Blatt lösche, würde ich es gerne so haben, dass ein Makro startet. Ginge das mit Change?
Gruß
Gordon
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim c As CommandBar
On Error Resume Next
For Each c In Application.CommandBars
c.FindControl(ID:=847, recursive:=True).OnAction = ""
Next
End Sub
Private Sub Workbook_Open()
Dim c As CommandBar
On Error Resume Next
For Each c In Application.CommandBars
c.FindControl(ID:=847, recursive:=True).OnAction = "BlattLoeschen"
Next
End Sub
Sub BlattLoeschen()
ActiveSheet.Delete
MsgBox "Blatt gelöscht"
End Sub