[kapetang]

Τάσο τώρα πρόσεξα ότι πατώντας το κουμπί «ΕΚΚΑΘΆΡΙΣΗ» διαγράφονται κάποια στοιχεία τα οποία θα προκαλέσουν την εκτέλεση κώδικα (GetMonths, Worksheet_Change), που δε θέλουμε να εκτελεστεί σ' αυτή τη φάση, επειδή μπορεί να προκληθούν λάθη.

Παίρνοντας υπόψη και την πρόταση του Σπύρου, θα πρέπει να διαμορφώσεις τον κώδικα της διαδικασίας MyClear ως εξής:

Sub MyClear()
    On Error GoTo errHandler
    
    Application.EnableEvents = False
    Φύλλο4.Range("b3:q40").ClearContents
    Φύλλο5.Range("b4:b7, b9:b11, b13,b15:b16").ClearContents
    Φύλλο6.Range("b6:g200,j6:j200").ClearContents

exitSub:
    Application.EnableEvents = True
    Exit Sub
errHandler:
    MsgBox Err.Description, vbCritical, "Error #" & Err.Number
    Resume exitSub
End Sub

Έλεγξε αν συμπλήρωσα σωστά τις περιοχές.