VBA講座 セルの操作：セルに名前

Option Explicit

'セルに名前を付ける
Private Sub CommandButton1_Click()
    '1個のセルに名前を定義
    Range("F5").Name = "Name1"
    Range("Name1") = "Excel"
    
    'セル範囲に名前を定義
    Range("F10:F12").Name = "Name2"
    Range("Name2") = "エクセル"
    
End Sub

'セルの名前の一覧
Private Sub CommandButton2_Click()
    Dim i As Long
    Dim ln As Long
        
    '定義された名前の個数
    ln = ActiveWorkbook.Names.Count
    For i = 1 To ln
        '定義名
        Cells(i + 9, 2) = ActiveWorkbook.Names(i).Name
        'アドレス表示
        Cells(i + 9, 3) = "'" & ActiveWorkbook.Names(i).RefersTo
    Next
End Sub