Hi All,

I have got a problem with my code - below is an extract. It gets stuck on "
Set myBook = Workbooks.Open(SRCbook)" stating "Object deosn't support this
method". I can't work out why?

Sub Import_data_from_Project_Log()
Dim basebook As Workbook
Dim SRCbook As String
'Dim DSTbook As Workbook
Dim myBook As Workbook
Dim rngSource(2) As Range
Dim rngDest(2) As Range
Dim sourceRNG 'As Range
Dim destRNG 'As Range

SRCbook = "C:\Documents and Settings\temp\SMVIL Project Log.xls"
Set basebook = ThisWorkbook
Set rngSource(1) = Worksheets("Project Log Form").Range("A8:U79")
Set rngSource(2) = Worksheets("Risk Management Plan").Range("A7:X10")


For i = 1 To UBound(rngSource)



Set myBook = Workbooks.Open(SRCbook)

Set sourceRNG = myBook.rngSource(i)

Next i

End Sub