Hjælp til ændring i vbakode

Har brug for en vba kode, der kan finde et varenr.  i en kolonne, og slette rækken hvori  varenumret befinder sig .  Som f.eks. Link til fil med forklaring http://gupl.dk/709233/

1. Fjern arkbeskyttelse i ark2 (arknavn skal kunne ændres i koden)
2. Indtastet varenr.  i A1 (celleplacering skal kunne ændres i koden)
3. Find varenumret i kolonne A i ark2 (kolonnenr. & arknavn skal kunne ændres i koden)
4. Popupbox med teksten "Vil du slette"
5. Slet rækken i ark2 hvori varenumret findes (arknavn skal kunne ændres i koden)
6. Beskyt ark2 (arknavn skal kunne ændres i koden)

Fik hjælp til en kode som virker i oploadet fil, men har problemer med at ændre arknavn, kolonne & celleplacering i andre filer, kan nogen ændre koden eller måske en ny? På forhånd tak.



Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveCell.Row = 1 And ActiveCell.Column = 1 Then
    skal_fjernes = ActiveCell

    maxnr = Application.WorksheetFunction.CountA(Ark2.Range("A:A"))

    For t = 2 To maxnr
        If skal_fjernes = Ark2.Cells(t, 1) Then
            x = MsgBox("Vil du slette " & skal_fjernes & Chr$(13) & Chr$(13) & "Klik OK for at fjerne", vbOKCancel)
            Exit For
        End If
    Next

    If x = 1 Then
        Ark2.Unprotect
        Ark2.Cells(t, 1).EntireRow.Delete
        Ark2.Protect
    End If

End If

End Sub