Advarsel før sltning af række

Hej,

jeg ønsker at få en advarsel før man sletter en hel række i excel.

eks. ønsker du virkelig at slette række 5- JA / NEJ

jeg har fundet her på siden en programkode for sletning af tekst i en celle som ser således ud:

Option Explicit
Dim Old As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range
  Dim Ans
  On Error GoTo exit_here
  Application.EnableEvents = False
  Set rng = Range("A4:A40")
  If Not Intersect(Target, rng) Is Nothing Then
      If Target.Cells.Count = 1 And Target.Value = "" Then
        Ans = MsgBox("Ønsker du virkelig at slette indholdet ?", vbOKCancel)
        If Ans = vbCancel Then Target = Old
      End If
  End If
exit_here:
  Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Old = Target
End Sub

Det virker også perfekt men jeg vil gerne have det at det blev rækker i stedet for celler.

How to do that???