Masquer les feuilles dont A1 est numérique

Bonjour

Dans un classeur de 20 feuilles, je renomme les onglets par le nom de la cellule A1. J'ai fait ça, et ça marche

Dim rs As Worksheet
For Each rs In Sheets
rs.Name = rs.Range("a1")
Next rs

Maintenant, si A1 (et donc le nom de ma feuille) est numérique, je souhaite masquer la feuille. Et là, je patauge un peu... Pouvez vous m'aider SVP ? D'avance merci. Vincent

bonjour,

une façon de faire

Sub hidenum()
    For Each ws In Sheets
        If IsNumeric(ws.Name) Then ws.Visible = False
    Next
End Sub