Sub var() Dim v As Variant v = 3.14159 Names.add name:="StoreNumber", RefersTo:=v v = "Sales" Names.add name:="StoreString", RefersTo:=v End Sub