Yeah I just realized that.....
Thank you so much brah!

"Norman Jones" wrote:

Hi Tim.

Try something like:

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="YourFileName.dif", _
FileFormat:=xlDIF, CreateBackup:=False
Application.DisplayAlerts = True

---
Regards,
Norman



"TimT" wrote in message
...
that worked!

I have another question if you could help...

Another part of the code call for the sheet to be saved as a .dif file.
before the code ends it asks for confirmation that would require a yes to
the
dialog box. is there a way to answer yes automatically?

"Norman Jones" wrote:

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?