Excel VisualBasic Script

Sub store()
    NumofSales = 5123
    Names.add name:="TotalSales", RefersTo:=NumofSales
     'Or use this:
    Names.add name:="TotalSales", RefersTo:=5123
End Sub