VBA Access Pivot Table Coding

I am having trouble getting past this one error when creating my Pivot Tables. It keeps saying there is an "Invalid Procedure Call or Argument" on

Sub AlternateRowColors()

Dim lastAddress As String

Dim myRange As Range, xlApp As Object, xlBook As Object, xlSheet As Object, xlObj As Object, xlPC As Object, xlPT As Object, xlPI As Object

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open("L:\WF Reporting\Superdash\Superdash_Reporting.xlsx")

Set xlSheet = xlBook.Sheets(4)

xlApp.Visible = True

For Each Sheet In xlBook.Sheets  
  lastAddress = Sheet.Range("A1").SpecialCells(xlCellTypeLastCell).Address
  Set xlLo = Sheet.ListObjects.Add(xlSrcRange, Range("A1:" & lastAddress), , xlYes)
  xlLo.TableStyle = "TableStyleMedium16"  

Next Sheet

    Set xlPC = xlBook.PivotCaches.Create(xlDatabase, "tbl_Superdash_Bot_Rpt", xlPivotTableVersion15) 
Set xlObj = xlBook.Sheets.Add(xlSheet)
Set xlPT = xlPC.CreatePivotTable(xlLo.Range("A3"), "Superdash_Bot_pivot") 
xlObj.Name = "Summary"

With xlPT
    .RowAxisLayout xlTabularRow
    .InGridDropZones = True
    .DisplayErrorString = True
    .ShowTableStyleRowStripes = True

 With .PivotFields("Bot_Skill_Name")
    .Orientation = xlPageField
 End With

 With .PivotFields("Human_Skill_Name")   
        .Orientation = xlPageField
 End With

End With


End Sub

I am getting an error on the

Set xlPT = xlPC.CreatePivotTable(xlLo.Range("A3"), "Superdash_Bot_pivot")'

line. It is saying that there is an

Invalid Call or Argument

. It seems to me that all of these are previously defined. What am I missing?