I'm trying to do

Sub Choose()

If ActiveSheet.PivotTables("PivotSheet").PivotFields("Division") = "ABC" Then
MsgBox "Value is 1"
End If

End Sub

But i get a error 1004. i believe my syntax of it is wrong. can anyone enlighten me on this?