Pivot Table Error

[realniceguy5000]

Hi,

This should be an easy one,

Can someone help me with why this script isn't working.

It is suppose to remove the (blank) check mark from the activesheets pivot table.

I'm getting a (Object doesn't support this property or method)

Sub removeblanks5()

Sheets(1).Select

With Sheets(1).PivotTables.PivotFields("Name")
        .PivotItems("(blank)").Visible = False
    End With
End Sub

Thanks as always for your help...

Mike