EXCELL 2010 MsgBOX prima di esecuzione Macro

[DERED]

Salve,

Vorrei sapere se è possibile far apparire un messaggio di "avviso" che dica
"Sei sicuro di voler cancellare tutto?" prima dell'esecuzione di questa Macro

Codice: Seleziona tutto

Sub Cancella1()
'
' Cancella1 Macro
'

'
    Range("A3:D15,H3:I15,R3:S15").Select
    Range("R3").Activate
    ActiveWindow.SmallScroll Down:=15
    Range("A3:D15,H3:I15,R3:S15,B20:D31,H20:H31").Select
    Range("H20").Activate
    ActiveWindow.SmallScroll ToRight:=6
    Range("A3:D15,H3:I15,R3:S15,B20:D31,H20:H31,U3:Z31").Select
    Range("Z31").Activate
    Selection.ClearContents
    Range("U3:Z3").Select
    Range("Z3").Activate
    Selection.ClearContents
    ActiveWindow.LargeScroll ToRight:=-1
    Range("A3").Select
End Sub

Grazie

[KITT]

ciao, il seguente codice ti chiede se vuoi confermare la cancellazione, se clicchi no esce dalla sub altrimenti procede con quanto previsto dal tuo codice che metterai nella parte relativa a "else".

spero di esserti stato utile.

ciao

Codice: Seleziona tutto

sub cancella ()
     Dim ChiediConferma As Integer
    ChiediConferma = MsgBox("Confermi la cancellazione?", vbYesNo)
        If ChiediConferma = vbNo Then
            exit sub
                 else
                    'qui metti la tua routine
        End If
end sub

[DERED]

Grazie kitt veramente gentile, funziona perfettamente.

[KITT]

ciao DERED, sono contento se ti e' stato utile.
Buona programmazione!!!