Excel VisualBasic Script

Sub ref3()
     Workbooks("Sales.xls").Worksheets("DataInput").Range("B2")
End Sub