Supprimer feuille dont le nom est dans une plage de cellule (macro)

Salut !

J'aimerais avoir votre aide pour la rédaction du macro.

Je cherche à réaliser une macro qui supprime tous les onglets (feuille) dont le nom des ces onglets sont dans une plage de cellule.

Voici pour le moment ce que j'ai réussi à faire :

Sub suppression_onglet()

Application.ScreenUpdating = False

Dim ongletsup As Range

Set ongletsup = Range("ongletsup")

For f = 1 To ongletsup.Rows.Count
ongletsup = ongletsup.Cells(f, 1)
Sheet(ongletsup).Select
ActiveWindow.SelectedSheets.Delete
Next f

End Sub

Comme vous avez pu le voir, ma plage de cellule contenant le nom de mes onglets à supprimer se nomme ongletsup.

Merci pour votre aide.