Code error “wrong number of arguments or invalid property assignment”

[hattrick_123]

What is wrong with this bit of code?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>

Sub ShowAllItemsks()<o:p></o:p>
Application.ScreenUpdating = False<o:p></o:p>
Dim ws As Worksheet<o:p></o:p>
Dim objPT As PivotTable<o:p></o:p>
Dim objPTField As PivotField<o:p></o:p>
Dim objPTItem As PivotItem<o:p></o:p>
 <o:p></o:p>
For Each ws In Worksheets<o:p></o:p>
ws.Visible = xlSheetVisible<o:p></o:p>
    For Each objPT In ws.PivotTables<o:p></o:p>
 MsgBox "Pivot table name: " & objPT.Name & vbCrLf & "Sheet name: " & ws.Name & vbCrLf & "test"<o:p></o:p>
    With objPT<o:p></o:p>
                <o:p></o:p>
                ' Run through all the column fields<o:p></o:p>
        For Each objPTField In .ColumnFields<o:p></o:p>
                    '<o:p></o:p>
                    ' Get the hidden items and make them visible<o:p></o:p>
                    For Each objPTItem In objPTField<o:p></o:p>
                    <o:p></o:p>
                    objPTItem("A").Visible = True<o:p></o:p>
                    objPTItem("B").Visible = False<o:p></o:p>
                    Next 'objPTItem<o:p></o:p>
        Next 'objPTField<o:p></o:p>
    End With<o:p></o:p>
Application.ScreenUpdating = True<o:p></o:p>
 <o:p></o:p>
    Next objPT<o:p></o:p>
Next ws<o:p></o:p>
End Sub<o:p></o:p>

<o></o>
<o></o>
It points at an error in this line of code with error “wrong number of arguments or invalid property assignment”<o></o>
<o></o>

objPTItem("A").Visible = True<o:p></o:p>

<o></o>
<o></o>
Appreciate any help.