Sub Test_OK()
Dim liste, i%
Set f = Worksheets("Liste")
liste = Application.Transpose(f.Range("A2", f.Cells(Rows.Count, "A").End(3)))
For i = LBound(liste) To UBound(liste)
On Error Resume Next
Application.DisplayAlerts = False
Worksheets(liste(i)).Delete
Application.DisplayAlerts = True
Next
End Sub