Hi,
PFA File attached.
I want to loop through all the Pivot Tables on the Workbook and display MsgBox for each Filter Caption.
In this case, the MsgBox should Display InvoiceDate.
Can anyone guide me how to do it?
Hi,
PFA File attached.
I want to loop through all the Pivot Tables on the Workbook and display MsgBox for each Filter Caption.
In this case, the MsgBox should Display InvoiceDate.
Can anyone guide me how to do it?
Cheers!
Deep Dave
Hi NeedForExcel,
try so
Sub ttt() Dim i& With ActiveSheet.PivotTables(1) For i = 1 To .PivotFields.Count If .PivotFields(i).Orientation = 3 Then MsgBox .PivotFields(i).Caption Next End With End Sub
Perfect..
Marking the thread solved and adding rep..
BTW, what is the significance of the & in Dim i&
Dim i& is the same Dim i As Long
Oh yes, I had read about that long back..
Cheers!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks