Powerpivot

Hi,

I am looking to create a powerpivots through a macro.

My approach was to record the macro first. I wanted it to:

Save the file with the data in it
Open a new workbook
Save new work book with appropriate name
Open powerpivot window
Get external data from other sources>excel>closed file
Save file

However recording the macro produces the following VBA code relating to the PPivot

Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"H:\Wholesale General\Model Build\Strat_Model_1.0_PP_Database.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Windows("Strat_Model_1.0.xlsm").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks("Strat_Model_1.0_PP_Database.xlsx").Connections.AddFromFile

So it looks to me that PPIvot won't create with VBA?
If it does could you walk me through

Thanks

Mike