Excel Pivot Table Function

Avg Bid (USD)
Project Budget (USD)
$15 - $20

Project Description:
I would like someone to write a function for me along the lines of the following.

1. It is a worksheet function
2. It returns a string showing the selected items in a PAGE FIELD.

I tried to write the function as follows:

Public Function GetPortfolios() As String
Dim rng As Range
Set rng = Application.Caller
Dim pvt As PivotTable
Set pvt = rng.Worksheet.PivotTables(1)
Dim pvtFld As PivotField
Set pvtFld = pvt.PageFields("Portfolio")
Dim pvtItem As PivotItem
For Each pvtItem In pvtFld.PivotItems
If pvtItem.Visible Then
GetPortfolios = GetPortfolios & pvtItem.Name & " "
End If
End Function

Given the attached screen shot, I would expect it to return:

However, it didn't work as expected. No pvtItem in the pvtFld.pvtItems collection comes up as visible, so the function return value is blank.

Can someone write a function which does behave as expected.

## Deliverables

1) VBA function code delivering functionality described above.

3) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement).

## Platform

Windows XP, Office 2000


Skills required:
Chrome OS, Engineering, Excel, Linux, Mac OS, Microsoft Access, Microsoft Exchange, MySQL, PHP, Powerpoint, Software Architecture, Software Testing, UNIX, Windows Desktop, Word
Additional Files: zRAC_DOC_NameCryptedToProtectYourPrivacy_X2004101913332573111252075522148163800725531535684516386773856063528001.zip
About the employer:
Public Clarification Board
Bids are hidden by the project creator. Log in as the employer to view bids or to bid on this project.
You will not be able to bid on this project if you are not qualified in one of the job categories. To see your qualifications click here.

Hire gsergg
$ 5
in 1 days