Excel VisualBasic Script

Sub rangeDemo()
     Workbooks("Sales.xls").Worksheets("DataInput").Range("C10").Value = 10
End Sub