supp feuille avec nom

Bonjour Forum!!!

Comment faire pour supprimer (a l'aide d'une macro) toutes les feuilles dont le nom commence par "_"?????

Voila mon code mais il marche po


Dim Wa As Worksheet
For Each Wa In Sheets

If Left(Wa.Name, 1) = "_" Then

With WS

ActiveWindow.SelectedSheets.Delet

End With
End If
Next


D'avance merci

Sylvain