vba code for setting the cell value to be equal to cell value in another workbook

e.g. I want Cells(1,1) to be equal to [anotherworkbook.xls]anotherworksheet'!Cells(1,1)
How should I write the code.

Thanks guys

This seems to work good even when the other workbook is closed

Sub PullDataFromOtherWBook()
'Put a formula in the cell
 Cells(1, 1).FormulaR1C1 = "='C:\Users\john.smith\Documents\[Book8.xls]Sheet1'!R1C1"
'store the result of the formula
 Value = Cells(1, 1).Value
'set the cell value to be the value (rather than the formula)
 Cells(1, 1).Value = Value
        End Sub

Hey experts,
I need to a macro/vba that replicate the action the pressing the downarrow key.
So that when my spreadsheet is grouped/ungrouped, when e downarrow key is pressed, it may select a different cells.
e.g. when row 8 to 10 is grouped, current active cell at cells(7,1), when pressing downarrow, it will select cells(10,1).
thanks!