セル範囲に名前を付けてリスト化する

Dim listName As Name
 
'リストが存在したら削除
For Each listName In ActiveWorkbook.Names
    If listName.Name = "hoge" Then
        Range("hoge").Name.Delete
    End If
Next listName
 
ActiveWorkbook.Names.Add _
    Name:="hoge", _
    RefersTo:="=Sheet1!$A$2:$C$10"