基于第一行的 VBA 名称列

Question

我想命名 "library" 的列。每列的名称都应在该列的第一个单元格中找到。我的代码返回 1004 错误。我做错了什么？

With ThisWorkbook.Sheets("Library")
    Dim x As Long, rng As Range
    For x = 1 To .UsedRange.Columns.Count
        Set rng = .Cells(2, x).Resize(.UsedRange.Rows.Count + 1, 1)
       ThisWorkbook.Names.Add name:=.Cells(1, x).Value, RefersTo:=rng
        Set rng = Nothing
    Next
End With

Answer 1

答案：不要在名称中包含任何特殊字符或空格，以便为您的范围指定。