Creating a Pivot Table

This used to work, why can I not place a pivot table on Sheet1 anymore?  Any ideas?  When I try to create one manually it says: "the data source you are trying to connect to is managed by an organization.  If you would like to reference it, please save your workbook in a location that is also managed."

I do use the data source tbl_pivot in a different workbook?  Does this mean that I need to name them uniquely? tbl_pivot1  2  3 ?

Sub CreateTop10PivotSheet()
    
    Sheets.Add.Name = "Sheet1"
    Sheets("Sheet1").Activate

     ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
         Range("tbl_pivot"), Version:=xlPivotTableVersion12).CreatePivotTable _
         TableDestination:="Sheet1!R3C1", TableName:="PivotTable1", DefaultVersion _
         :=xlPivotTableVersion12



    Range("A5").Select

Select allOpen in new window