Pivot VBA values true

Hey

Jeg fik hjælp af bak til følgende http://www.eksperten.dk/spm/517870, men nu skal det så vendes om. Sådan at den sætter de værdier til true som den har registreret i arket grafik B+RowNo "RowNo er variable som finder den nederste frie række". oribrand er en varible som registrere hvor feltet ligger i pivoten "kolonne, række, data eller side"

Koden er ændret lidt og ser sådan ud.
If oribrand = 2 Or 3 Then
    For Each ptibrand In Worksheets("Pivot").Range("B10").PivotTable.PivotFields("Brands").PivotItems
        If ptibrand.Visible = True Then ptivaluebrand = ptivaluebrand & "; " & ptibrand.Name
    Next
    Worksheets("Grafik").Range("B" & RowNo) = Mid(ptivaluebrand, 3)
Else
End If