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"