Save copy without VB

[bposaner]

Guys

I'm sure its a simple answer but I've tried a search and found nothing suitable
I basically want to save a copy of a workbook, but without any of the VB, etc. Thats it.

I cant use XML, as one sheet is a graph.

I have been using the below bit, but i need it as 2003 format not as a xlsx

ActiveWorkbook.SaveAs Filename:=strFile, FileFormat:=51, CreateBackup:=False

Any help would be great.
Thanks
bposaner

 

[sous2817]

Try the file format number as 56

 

[bposaner]

Thanks for the responce, but i'm now getting a runtime error 1004
Method "SaveAs' of object '_Workbook' failed

Any ideas why? Also where can i find a list of the "FileFormat:=??"
Thanks

My full code is now:

Sub SaveIt()
    
Dim strPeriod As String
Dim strFile As String

    Sheets("Data").Select
    strPeriod = Sheets("Data").ListBox1.Text
    strPeriod = Left(strPeriod, 2) & Mid(strPeriod, 4, 3) & Mid(strPeriod, 8, 2)
    strFile = "D:\Data\" & strPeriod
    ActiveWorkbook.SaveAs Filename:=strFile, FileFormat:=56, CreateBackup:=False
    
End Sub

 

[sous2817]

I found the list of codes here:

http://www.rondebruin.nl/saveas.htm

I'm not sure why you're getting an error. Are you sure the file name is valid?

 

[bposaner]

Forgot to mention that i'm running in Office 2003, not 2007.