Programatically create Personal Macro Workbook using VBA

[pingme89]

I want to create a Personal Macro Workbook programmatically with VBA. I am having an issue creating it.
This is what I currently have:

personalWBName = "PERSONAL.XLSB"
personalFilePath = Application.UserLibraryPath & personalWBName

Application.Workbooks.Add
Set personalWB = ActiveWorkbook
personalWB.SaveAs FileName:=personalFilePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled

On the last line of code, I get a runtime error 1004. This extension cannot be used with the selected file type.

How else can I approach this problem? Any help would be greatly appreciated.

 

[Domenic]

Try replacing....

Application.UserLibraryPath

with

Application.StartupPath

Hope this helps!

 

[pingme89]

Try replacing....

Application.UserLibraryPath

with

Application.StartupPath

Hope this helps!

I am still getting the same Runtime error 1004. with the modification

 

[Domenic]

Oh right, missed it, should replace...

FileFormat:=xlOpenXMLWorkbookMacroEnabled

with

FileFormat:=xlExcel12 'excel binary workbook

Hope this helps!

 

[pingme89]

Oh right, missed it, should replace...

FileFormat:=xlOpenXMLWorkbookMacroEnabled

with

FileFormat:=xlExcel12 'excel binary workbook

Hope this helps!

That solved the problem. Much thanks.

 

[Domenic]

You're very welcome, cheers!