Workbooks("Book1").Connections.Add2 Name:="LinkedTable_Table1", Description:="", ConnectionString:="WORKSHEET;Book1", _
CommandText:="Book1!Table1", lCmdType:=7, CreateModelConnection:=True, ImportRelationships:=False
ASKER
Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.
TRUSTED BY
Sub PowerPivot()
ActiveWorkbook.PivotCaches
"Sheet1!R1C1:R4C2", Version:=xlPivotTableVersi
TableDestination:="Sheet1!
:=xlPivotTableVersion12
Sheets("Sheet1").Select
Cells(1, 4).Select
End Sub