Pivot nummer

' Create sheets and pivots for each responsible
Sheets("Selling expenses").PivotTables("PivotTable2").ShowPages PageField:="Responsible"

' Save each sheet with restriction on the pivot
Dim intFaneblad As Integer
For intFaneblad = 4 To ActiveWorkbook.Sheets.Count

' Restrict pivottable
Dim pf As PivotField
With ActiveSheet.PivotTables(1)
.EnableWizard = False
.EnableDrilldown = True
.EnableFieldList = True
.EnableFieldDialog = False
.PivotCache.EnableRefresh = False
For Each pf In .PageFields
With pf
.DragToPage = False
.DragToRow = False
.DragToColumn = False
.DragToData = False
.DragToHide = False
End With
Next pf
End With

'  Save the sheet
Dim wb As Workbook
Dim LngSidstepunktum As Long
Dim strNytNavn As String
LngSidstepunktum = InStrRev(ActiveWorkbook.FullName, ".")
strNytNavn = Left$(ActiveWorkbook.FullName, LngSidstepunktum - 24) & ActiveSheet.Name & Mid$(ActiveWorkbook.FullName, LngSidstepunktum)

Set wb = Workbooks.Add
ThisWorkbook.Sheets(intFaneblad).Copy Before:=wb.Sheets(1)

wb.SaveAs Filename:=strNytNavn, FileFormat:=xlExcel12, CreateBackup:=False

Next intFaneblad

Jeg testede så selv - de nye pivoter arver ikke den oprindelige pivots begrænsninger.

Derfor skal jeg løbe restriktioner igennem på hver pivot, men hvordan navngiver jeg dem? Et loop fra 1-50 med onerror resume naxt?

Der er ca 25 faneblade = 25 pivoter.

Jeg lukker.