Slicer Not Recognizing Pivot Table

Well, I'm 90% fixed with my other problem and something tells me this is simple so I'm going to give it a shot. I need to create a simple slicer for a pivot table. I am creating the pivot table via a macro (below). Even though Excel clearly shows a happy pivot table, the slicer stays gray until I just select a blank cell (which is useless for creating a slicer).

So, I've attached the file, the code I'm using for the slicer and the code I'm using for the pivot table. Please let me know what obvious thing I've missed.


Test.xlsx

Sub slicer()
Dim l As SlicerCaches
Dim m As Slicers
Dim n As Slicer

Set l = ActiveWorkbook.SlicerCaches
Set m = i.Add(ActiveSheet.PivotTables(1), "Target", "Business Unit").Slicers
Set n = j.Add(ActiveSheet, , "Business Unit", "Target", 0, 0, 200, 200)
Msgbox "Created Slicer"
End Sub

' Region is the name field that we want to build the slicer for.
' My_Region is the name that has been assigned to the slicers object.

Sub zzp1()

    Dim objTable As PivotTable, objField As PivotField
    Dim objPivotItem As PivotItem

    ActiveWorkbook.Sheets("Data").Select
    Range("A1").Select
    
    Set objTable = ActiveSheet.PivotTableWizard
    
    Set objField = objTable.PivotFields("Area")
    objField.Orientation = xlRowField
    
    Set objField = objTable.PivotFields("Business Unit")
    objField.Orientation = xlRowField
    
    Set objField = objTable.PivotFields("Completion Status")
    objField.Orientation = xlColumnField
    
    Set objField = objTable.PivotFields("Completion Status")
    objField.Orientation = xlDataField
    objField.Function = xlCount
    objField.NumberFormat = "#,##0"
    
    Set objField = objTable.PivotFields("Description")
    objField.Orientation = xlPageField
    
    Application.DisplayAlerts = True
 End Sub

Thanks. I will try that.

Okay, I feel like I'm really close here. 3 different XL books say that I got this right but I keep getting a syntax error on the section marked in red. Any ideas why this is tanking?

Sub PivotCache()
    Dim PTCache As PivotCache
    Dim PT As PivotTable

    Set PTCache = ActiveWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase
        SourceData:=Range("A1").CurrentRegion)

    Worksheets.Add

    Set PT = ActiveSheet.PivotTables.Add( _
        PivotCach:=PTCache, _
        TableDestination:=Range("A3"))

    With PT
        .PivotFields("Description").Orientation = xlPageField
        .PivotFields("Completion Status").Orientation = xlColumnField
        .PivotFields("Region").Orientation = xlRowField
        .PivotFields("Completion Status").Orientation = xlDataField

    .DisplayFieldCaptions = False
    End With
End Sub

Actually, I got the same error message with the comma and line continuation. I found some alternate language and it works fine. Nevertheless, thanks for the help.

Sub PivotTable()
    Dim PTCache As PivotCache
    Dim PT As PivotTable

    Set PTCache = ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:="'" & Activesheet.Name & "'!" & Range("A1").CurrentRegion.Address(true,true,xlR1C1))

    Worksheets.Add

    Set PT = ActiveSheet.PivotTables.Add( _
        PivotCache:=PTCache, _
        TableDestination:=Range("A3"))

    With PT
        .PivotFields("Description").Orientation = xlPageField
        .PivotFields("Completion Status").Orientation = xlColumnField
        .PivotFields("Region").Orientation = xlRowField
        .PivotFields("Completion Status").Orientation = xlDataField

    .DisplayFieldCaptions = False
    End With
End Sub