Hello DH123,

Welcome to the Forum!

This will output the column number and the column address for the named range MyRange.
Sub Test()

    Dim c As Long
    
        For c = 1 To Range("MyRange").Columns.Count
            MsgBox "Column " & c & vbLf & Range("MyRange").Columns(c).Address
        Next c
    
End Sub