Slette række med VBA

Hej

Jeg har i en fane i kolonne A en liste med unikke numre i tilfældig rækkefølge startende i A8. I en userform finder jeg nummeret jeg vil slette. Hele rækken hvori nummeret befinder sig skal så slettes. Jeg har skrevet min kode herunder og rækken af numre er lavet som en vektor med navnet ListeNr og nummeret har variablen NrListe1 som vælges i min userform. Håber i kan hjælpe



---------------------------
Private Sub OK_Click()
SletBukkeliste.Hide

Dim Nummer As Variant
Dim slet As Variant

Nummer = NrListe1
Rows("30:30").Delete
Sheets(Nummer).Delete
-----------------------------