Tabbladen automatisch verwijderen

[sjoerd81]

Hallo,

Als de status van cel M1 "OK" is, en ik klik op de aangemaakte button, dan worden de tabbladen "bl", "gr", "ro", "zw" verwijderd. Is het mogelijk om dit automatisch te laten verlopen, maw als cel M1 veranderd in 'OK' dat er niet op de button hoeft te worden geklikt?

Tot dusverre heb ik de volgende code:


Sub button()
On Error Resume Next
Application.DisplayAlerts = False
On Error GoTo 0
If [M1] = "OK" Then
Sheets(Array("bl", "gr", "ro", "zw")).Delete
End If
Application.DisplayAlerts = True
End Sub

 

[wiki]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.DisplayAlerts = False
On Error GoTo 0
If [M1] = "OK" Then
Sheets(Array("bl", "gr", "ro", "zw")).Delete
End If
Application.DisplayAlerts = True
End Sub

of Private Sub Worksheet_Calculate()

gr wim

 

[sjoerd81]

Het lukt nog niet. Ik heb gemakshalve even een bestandje toegevoegd.

Bekijk bijlage Tabbladen verwijderen.xls

 

[Cobbe]

Je moet die code plakken achter uw blad en niet in een Module.

Cobbe

 

[sjoerd81]

Oh ja Thanks