Renoomer plusieurs feuilles

Bonsoir !

Dans un classeur j'ai 10 feuilles : F01 => F10,

leurs noms doivent être mis a jour selon le contenu de cellules placés dans la feuille F01

La cellule F10 reste intacte, je dois renommer a partir de la cellule F02, les nouveaux noms sont placés dans les Cellules A2 => A10

J'ai créé ce code :

Sub RenameSheets()
Dim i As Integer
For i = 2 To 10
If Cells(i, 1) <> "" Then
Sheets(i).Name = Sheets("Class").Cells(i, 1).Value
i = i + 1
End If
Next
End Sub

Le code renomme les cellules paires uniquement, et parfois déclenche une erreur, et parfois, saute une feuille au hazard, je ne sais pas le prob,

Comment résoudre svp !

Merci !

Bonsoir,

Dans une boucle for ... each, la variable s'incrémente à chaque itération. Pas besoin donc de rajouter 1 à chaque fois

Supprime la ligne i = i + 1 et cela devrait fonctionner.

Bonjour,
Une petite contribution.
Cdlt.

Public Sub RenameSheets()
Dim i As Long
    With Worksheets("Class")
        For i = 2 To 10
            If Not IsEmpty(.Cells(i, 1)) Then
                Worksheets(i).Name = .Cells(i, 1).Value
            End If
        Next
    End With
End Sub