Refer to the B2 cell in DataInput, while another workbook is active
Sub ref3() Workbooks("Sales.xls").Worksheets("DataInput").Range("B2") End Sub