transfer data from open workbook to closed workbook

hi stephen
i have this code

Sub Macro1()

Dim wbTo As Workbook, wbFrom As Workbook

Application.ScreenUpdating = False

Set wbFrom = ThisWorkbook
Set wbTo = Workbooks.Open("C:\Documents and Settings\st\Desktop\goodbye.XLS")

With wbTo
    .Sheets(1).Range("A1") = wbFrom.Sheets(1).Range("A3")
    .Sheets(1).Range("A2") = wbFrom.Sheets(1).Range("D6")
    .Sheets(1).Range("A3") = wbFrom.Sheets(1).Range("F9")
    .Sheets(1).Range("A4") = wbFrom.Sheets(1).Range("I6")
    .Sheets(1).Range("A5") = wbFrom.Sheets(1).Range("K10")
    .Sheets(1).Range("A6") = wbFrom.Sheets(1).Range("I18")
    .Close True
End With

Application.ScreenUpdating = True

End Sub

and i get an error when i run this

microsoft visual basic
400

any ideas?