VBA 添加名称管理器

Sub AddNamedRangeInVBA()
    Dim ws As Worksheet
    Dim namedRangeName As String
    Dim rangeAddress As String
    
    ' 指定工作表
    Set ws = ThisWorkbook.Sheets("款")
    
    namedRangeName = "Mark_金额" ' 命名范围的名称
    rangeAddress = "X5" ' 命名范围的地址（相对于指定工作表）
    
    ' 添加命名范围到指定工作表
    ThisWorkbook.Names.Add Name:=namedRangeName, RefersTo:="=" & ws.Name & "!" & ws.Range(rangeAddress).Address
    
    MsgBox "命名范围 '" & namedRangeName & "' 已添加到工作表 '" & ws.Name & "'！"
End Sub