Excel VisualBasic Script

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