Run-time error '9': Subscript out of range

[sjoerd81]

Hallo,

Ik heb een bestand dat gebruikt wordt voor boekingen. Indien de boekingen in een keer correct worden ingegeven komt in cel M10 de status "OK" te staan en worden de overige tabbladen verwijderd. Dit werkt perfect.
Echter wanneer je je vergist in de boekingen (en dat gebeurt nog wel eens ) , en je een aanpassing dient te maken krijg ik, doordat de tabbladen reeds verwijderd zijn, de error:

Run-time error '9': Subscript out of range

Hoe los ik dit op?

Ik heb de volgende code:

Private Sub Worksheet_Calculate()
On Error Resume Next
Application.DisplayAlerts = False
On Error GoTo 0
If [M10] = "OK" Then
Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")).Delete
End If
Application.DisplayAlerts = True
End Sub

Bekijk bijlage Run time error 9.xls

 

[Cobbe]

Hoe kan je dan nog wijzigingen aanbrengen als de tabbladen reeds verwijderd zijn?
Ik zou die blad-verwijderencode apart houden en pas laten lopen na een MsgBox met de vraag of alles nu OK is.

Cobbe

 

[sjoerd81]

De overige tabbladen zijn puur informatief en worden meestal niet geraadpleegd. Aan de inhoud van deze tabbladen veranderd ook niets.