Bonjour à tous,

J'ai un fichier excel contenant un certain nombre de cellules nommées et je cherche à renommer celles-ci à l'aide d'un suffixe déterminé à partir du nom de la feuille active.
Pour cela je balaye la plage contenant mes cellules nommée et je stock l'adresse de la cellule dans une chaine de caractère. Mon problème est que l'objet range ne reconnait pas ma variable Adr comme une adresse de type "$A$20" et j'obtiens une erreur 400.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
    Dim Adr, CellName As String
    For Each Cell In ActiveSheet.UsedRange.Columns("A:O").Cells
        Adr = Cell.Address
        CellName = Range(Adr).Name.Name
        If CellName <> "" Then
            MsgBox (CellName)
        End If
    Next
Je ne parviens pas à trouver la syntaxe correcte pour récupérer le nom de ma cellule nommée.
J'espère avoir été assez explicite , je vous remercie par avance de votre aide.

Cordialement dude,