Confirmar borrado de celda

Private Sub Workbook_Open()

On Error Resume Next

Dim Activa As Worksheet

Set Activa = ActiveSheet

Application.DisplayAlerts = False

Sheets("$$$Work$$$").Delete

Application.DisplayAlerts = True

ActiveSheet.Copy after:=Sheets(1)

ActiveSheet.Name = "$$$Work$$$"

ActiveSheet.Visible = False

Activa.Select

End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

On Error Resume Next

Application.DisplayAlerts = False

Sheets("$$$Work$$$").Delete

Application.DisplayAlerts = True

End Sub

[/CODE]

[CODE]
Private Sub Worksheet_Change(ByVal Rango As Range)
Dim Target As Range
If Rango.Rows.Count = Rows.Count Or _
Rango.Columns.Count = Columns.Count Then Exit Sub
For Each Target In Rango
If Target = "" And _
Not Sheets("$$$Work$$$").Range(Target.Address) = "" Then
If MsgBox("Has borrado el contenido de la celda " & _
Target.Address(False, False) & Chr(10) & _
" ¿Estás eguro ?", vbYesNo + vbQuestion, _
"Confirmar borrado de celda") = vbNo Then
Target = Sheets("$$$Work$$$").Range(Target.Address)
End If
Else
Sheets("$$$Work$$$").Range(Target.Address) = Target
End If
Next
End Sub
[/CODE]