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