Auto Destruição - Artifício de segurança
21/05/2010 17:02
Esta macro deleta todo o conteúdo caso a celula A1 receba o valor "x"'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = "x" Then
Range("A1:IV65536").Select
Selection.ClearContents
Range("A1").Select
End If
End Sub