Hi TimT,

Range("A1:J100").Select <--- HANGS UP HERE!!

Try:

Sheets("K1_Info").Range("A1:J100").Select

---
Regards,
Norman



"TimT" wrote in message
...
Hello all...
this works in a macro but not in code..


Workbooks.Open Filename:="C:\1040WP\K1_Info.xls"
Sheets("K1_Info").Select
Range("A1:J100").Select <--- HANGS UP HERE!!
Selection.Copy
Windows("Electronic Workpapers-Final V 1.1.6.xls").Activate
Sheets("G-2").Select
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A11").Select


Can someone tell me what I'm doing wrong?