Range integrieren

Hallo Zusammen,
mit dem folgenden Code lasse ich Tabellenblätter löschen die ich nicht mehr brauche. Ich habe in einem Blatt die Namen untereinanderstehen und wähle dann aus.
durch die Auswahl wird dann das entsprechende Blatt gelöscht. Wie kann ich durch die selbe Auswahl in der Inputbox auch den Namen aus der Liste löschen lassen? mir fehlt die Range variable die ich nicht eingebaut kriege. Der "Name" ist ja schon als String definiert.
Ändere ich es auf Range dann löscht er die Zelle aber das Tabellenblatt nicht mehr.

vielen dank schon mal für die Mühen und Tipps
Kruemel

Sub FindenLöschen()

Dim Name As String
Dim msg As Integer
    
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    
msg = MsgBox("Soll der Name und das dazugehörige Tabelleblatt gelöscht werden?", vbQuestion + vbYesNo + vbDefaultButton2, "Löschung Name und Tabellenblatt")

If msg = vbYes Then
    Name = Application.InputBox(prompt:="Den zu löschenden Namen auswählen", Type:=8)
    Sheets(Name).Delete
    Name.ClearContents
    
Else
End If

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub