Problem with macro

[one_more_cave_dweller]

I am trying to have a macro copy data when a workbook opens to another workbook but when I use this code nothing happens. HELP

Thanks ray:

Sub Autpen()

Range("B2:B10").Select
Selection.Copy


Workbooks.Open Filename:="C:\Documents and Settings\Owner\Desktop\Book1.xls"
Sheets("Control").Select
Range("C2:C10").Select
ActiveSheet.Paste
ActiveWorkbook.Close True


.ScreenUpdating = True
.DisplayAlerts = True
End With

End Sub

 

[parry]

Theres somthing wrong with the last three lines as they are unqualified references. Is there more code? If not your missing the following line after you close the workbook...

With Application