XL 2010 [RESOLU-Merci Dranreb]CodeName feuille via fonction

[cathodique]

Bonjour,

Ce matin je me suis mis sur un tuto pour approfondir mes connaissances.
La macro doit renvoyer le code name des feuilles du classeur.

Dommage, le code plante.
Erreur 91 - "Variable objet ou variable de bloc with non définie"

Pas vraiment compris pourquoi. Merci de me venir en aide.

Option Explicit

Public Sub UseSheet()
    Dim sh As Worksheet
    Set sh = SheetFormCodeName("CodeName", ThisWorkbook)
    Debug.Print sh.Name  '**** plante ici
End Sub
Public Function SheetFormCodeName(Name As String, bk As Workbook) As Worksheet
    Dim sh As Worksheet
    For Each sh In bk.Worksheets
        If sh.CodeName = Name Then
            Set SheetFormCodeName = sh
            Exit For
        End If
    Next sh
End Function

Avec mes remerciements anticipés.

oublié le fichier

 

[Dranreb]

Bonjour.
Il plante tout simplement parce qu'aucune feuille n'a pour CodeName "CodeName"

 

[cathodique]

Merci beaucoup Dranreb, tu viens à mon secours encore une fois.

Depuis le temps, j'aurai dû faire un effort pour améliorer mon anglais. Enfin au moins pour le vba.
C'est un tuto en anglais donc pas trop compris la littérature. Quand même, le nul que je suis.

Encore merci.