Allora comincia col mostrare il codice che hai scritto, magari meglio se alleghi il file da cui prendere spunto per ipotizzare lo scenario.

Un paio di osservazioni:

1- non serve creare un modulo separato per ogni routine (sub o function) che crei;

2- serve (e molto invece) specificare Option Explicit in testa ai moduli, anche quelli dell'userform.

Dalle tue istruzioni capisco che tu vuoi cancellare il contenuto degli appuntamenti delle date antecedenti a quella che inserisci mediante l'userform calendario. Quindi:

 -mi posiziono su una scheda qualsiasi

- attivo l'userfom calendario (pulsante "Data")

- scelgo una data

- questa viene messa nell'intestazione del foglio corrente

- devo scorrere tutti gli altri fogli e, se la data in intestazione di ciascuno di essi è inferiore a quella appena scelta, devo cancellare l'intero foglio appuntamenti.

E' questo il flusso delle operazioni?

giatz wrote:il pulsante "svuota" mi serve per avere un foglio pulito per lo stesso evento

Ah ecco, allora il pulsante deve solo fare una copia vuota del medesimo foglio e proportela per la compilazione, mantenendo però lo storico degli appuntamenti passati. Sarà allora necessario prevedere un meccanismo di rinomina dei fogli man mano che vengono creati (che so, aggiungendo una data). Dovremo però accorciare i nomi dei fogli perchè il limite max è trenta caratteri.

ok appena posso ci guardo un attimo.

giatz wrote:pronto per lo stesso evento del mese successivo

Non capisco, il foglio appuntamenti sembra giornaliero... gestisci un solo evento al mese dello stesso tipo? Probabilmente sì:

giatz wrote:Ogni foglio rappresenta un evento che si svolge in diverse date per tutti i mesi

Comunque il codice che hai scritto per svuotare il foglio è ridondante, ti basta cancellare direttamente il range interessato senza fare alcun ciclo (segue esempio, con avviso di conferma):

Option Explicit

Sub svuotacelle()
    If MsgBox("Questa operazione svuota il foglio appuntamenti. Proseguire?", _
        vbYesNo + vbInformation + vbDefaultButton2, "Attenzione") = vbNo Then Exit Sub
    
    Range("c3:e26").ClearContents
End Sub