In your module it should look like this:

ActiveSheet.SaveAs Filename:=Filesavename, _
FileFormat:=xlWorkbookNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False


I moved the underscores, which are line continuation characters, so they are
on the end and won't wordwrap in the email.


I made the constant xlWorkbookNormal, but I wouldn't expect that to make a
difference:

? xlNormal
-4143
? xlWorkbookNormal
-4143

--
Regards,
Tom Ogilvy


"La Durande" wrote in message
...
the following VBA works with Excel 2000 but gives error 1004 when used
with
Excel 2002 (XP)
'
' 14/09/2004 by Alf Dorrian
'
Range("A2:M73").Select
Selection.Copy
Workbooks.Add

Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False _
, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:=False _
, Transpose:=False


Application.CutCopyMode = False
Filesavename = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")

If Filesavename < False Then

(the code below this gives the error)
ActiveSheet.SaveAs Filename:=Filesavename, FileFormat:= _ xlNormal,
Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _ , CreateBackup:=False

End If
ActiveWorkbook.Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=False

End Sub

Have "repaired" Office XP Pro but still won't work