I have read some off whar has been writing here in this forum
and find theis code from
http://www.rondebruin.nl/ado.htm

the code I use is
Sub GetData_Example1()
'This Copy the range to the ActiveCell
GetData ThisWorkbook.Path & "\test.xls", "Sheet1", "A1:C5", ActiveCell,
False

'This Copy the range to the Sheet/Range you want
'GetData ThisWorkbook.Path & "\test.xls", "Sheet1", "A1:C5",
Sheets("Sheet2").Range("A1"), False

End Sub

but get an error
its stop with Getdata and the error is:

compile error
Sub or function not defined.
Can some one help

Alvin