Change
ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText

to
wb.SaveAs Filename:=answer, FileFormat:=xlText


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Mayur Patel" wrote in message ...
Thanks for your help, Ron.

"Ron de Bruin" wrote:

By the way, to answer your question, I was trying to save the sheet with the
given name as a text file (tab delimited).

Use my first example then that copy the sheet into a new workbook and save it


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Mayur Patel" wrote in message ...
Since it worked for you, I have to assume that the problem is with our
company's installation of Excel 2003. I wasn't even getting to
"Worksheets("sheet1").SaveAs filename:=answer".

By the way, to answer your question, I was trying to save the sheet with the
given name as a text file (tab delimited).

"Ron de Bruin" wrote:

First test is OK in 2003

Can you explain this line
Worksheets("sheet1").SaveAs filename:=answer
What do you want to do ?


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ron de Bruin" wrote in message ...
I will open a VPC with 2003 to test

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Mayur Patel" wrote in message
...
This is the complete code. My problem isn't with the SaveAs, it is with the
Application.GetSaveAsFilename function.

"Ron de Bruin" wrote:

Hi

Is the complete code ?
Do you want to save the sheet as a txt file ?

Try this

Sub test()
Dim wb As Workbook
Do
answer = Application.GetSaveAsFilename(InitialFileName:="In itFile", _
FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name")
Loop Until answer < False
Worksheets("sheet1").Copy
Set wb = ActiveWorkbook
ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText
wb.Close False
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Mayur Patel" <Mayur wrote in message
...
I am having trouble with a macro that worked in Excel 2000 but will not work
in Excel 2003. In 2000, this macro saves just the data portion but in 2003
it loops endlessly. I also have trouble with a few more macros. Is there a
place where I can go to find variances between Excel 2000 VBA and 2003?

Do
answer = Application.GetSaveAsFilename(InitialFilename:="In itFile",
FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name")
Loop Until answer < False
Worksheets("sheet1").SaveAs filename:=answer