Naam uit lijst wissen en bijbehorend tabblad verwijderen via macro

[origami123]

Goedenavond,

Ik ben op zoek naar de code voor het volgende:
- via een keuzemenu op het invoerblad een naam uit een bijbehorende lijst selecteren
- de geselecteerde naam wissen uit deze lijst
- het bijbehorende tabblad verwijderen.

Hieronder - onderstreept - mijn laatste poging tot nu toe

Sub VerwijderNaam()
 Dim  As Object
 On Error Resume Next
    vnaam = InputBox("Te verwijderen naam")
         MsgBox "Weet u het zeker?"
        If vnaam = "" Then
          Exit Sub
        End If
    Sheets(vnaam).Delete
Sheets("invoerblad").Select

[U]ActiveCell.FormulaR1C1 = "=VLOOKUP(vnaam,H3:H66500,1)"[/U]

End Sub

Na vruchteloze pogingen met vlookup en vert.zoeken lukt het me nog steeds niet.

Het tabblad krijg ik wel verwijderd, maar de naam uit de lijst krijg ik niet geselecteerd, laat staan gewist.

M.vr.gr.

Origami

 

[HSV]

Ongeveer zo; uit de losse pols.

Set c = columns(8).find(vnaam,,xlvalues,xlwhole)
if not c is nothing then
sheets(c.value).delete
c.clear  'of c.clearcontents
end if

 

[origami123]

Harry,

Dan wel uit de losse pols, maar het werkt fenomenaal.

Helemaal precies wat de bedoeling is.

Mijn dank is groot.

Nu kan ik gaan fröbelen over hoe de naam te selecteren via een keuzemenu, zodat deze niet handmatig - met gerede kans op fouten - hoeft te worden ingevoerd in de TextBox.

Nogmaals bedankt.

Origami