Vabbè, se è proprio un messaggio che vuoi aggiungi queste poche righe di codice subito dopo i Dim:
Dim avviso As String
avviso = MsgBox("Stai per ripulire il foglio," & vbLf _
& "è proprio quello che ti proponevi di fare ?", _
vbYesNo + vbExclamation, "Pulitura Foglio")
If avviso = vbNo Then Exit Sub
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)