VB code to auto save file as excel 2010

[bryanc2k]

Hi,

I have a macro that creat's a price list for individual customers annd saves the file using

ChDrive "K:\DIVISION\swlicens\Price list test tool\Price list"
ChDir "K:\DIVISION\swlicens\Price list test tool\Price list"

ActiveWorkbook.SaveAs Filename:=UCase(Range("a2")), FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Dim sFileName As String
sFileName = Range("A2").Value

ActiveWindow.Close

is there a way to set this so that it automatically select office 2010 xls (marco free) as the file format as this reduces the files sixe from 13mb to 3mb.

Thanks in advanced.
Bryan

[JimmyA]

Hi

I might have missed the point here but just wondering if this helps..........

If you change the fileformat from "xlNormal" to 51 it seems to save as xlsx.

Hope this helps.

Cheers

James