VBA slet række

Response = MsgBox("Er du sikker på du ønsker at slette " & ActiveCell.Value & "?", vbYesNo)

If Response = vbYes Then 
    ActiveCell.EntireRow.Delete
End If

Sub Macro2()
    svar = MsgBox("Ønsker du at slette " & Range("A" & ActiveCell.Row).Value, vbYesNo)
    If svar = vbYes Then
    X = ActiveCell.Row
    Rows(X).Delete Shift:=xlUp
    End If
End Sub

Ups - så lige forkert på "Børge". ActiveCell.Value skal erstattes med Cells(ActiveCell.Row, 1)

eller en one-liner
If MsgBox("Ønsker du at slette " & Range("A" & ActiveCell.Row).Value, vbYesNo) = vbYes Then _
  ActiveCell.EntireRow.Delete Shift:=xlUp

Tak for svarene.
Jeg brugte bak´s løsning med en ekstra linie - altså:

Sub SletRaekke()
    ActiveCell.EntireRow.Activate
    svar = MsgBox("Ønsker du at slette " & Range("B" & ActiveCell.Row).Value, vbYesNo)
    If svar = vbYes Then
    X = ActiveCell.Row
    Rows(X).Delete Shift:=xlUp
    End If
    ActiveCell.Activate
End Sub

Hvordan deaktiverer man forresten en hel række og springer tilbage til ActiveCell?

Du har jo lige slettet din aktive celle *S* men det gøres nemmest ved at svælge en bestemt celle. F.eks.  Range("A1").select

Ja, men kan så gemme den oprindelige position i en variabel og så kalde den frem igen?

Række = activecell.row
Kolonne = activecell.Column

Ja, det kan man selvfølgelig.
Jeg havde gang i noget med ActiveCell.Address .....

Forøvrigt sletter man jo ikke rækken medmindre man svarer "Nej" :-)

øhh ... "Ja"

:-|)