Skal spørge hvis indhold af celler deletes eller overskrives

Forslag:
Rem Koden anbringes i VBA-vinduet / ThisWorkBook

Dim erUdfyldt As Boolean, indHold As Variant
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If erUdfyldt = True Then
        svar = MsgBox("Vil du overskrive indhold?", vbYesNo)
        If svar <> 6 Then
            erUdfyldt = False
            Target.Value = indHold
        End If
    End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Value <> "" Then
        erUdfyldt = True
        indHold = Target.Value
    Else
        erUdfyldt = False
        indHold = ""
    End If

End Sub

Tusind tak for hjælpen.
Det virkede.
Send et svar og du får point.

Selv tak ..