Macro Pivot Table: Most elegant way to skip a "do not display" if element doesn't exist

I'm writing a macro to Pivot a ream of data into a tabulated form for easier reading.

Occasionally, the data subset will contain a "blank" entry that - while not a problem - I would rather not display in the Table (for clarity).

The following removes it:

    With ActiveSheet.PivotTables("SortedTable").PivotFields("Message")
        .PivotItems("(blank)").Visible = False
    End With

But if the raw data happens to NOT contain any blanks, it fails with the message:

"Run-time error '1004':
Unable to get the PivotItems property of the PivotField class

Could someone advise the most elegant way of programming - "If there are no BLANK items then don't bother trying this"?

Thanks in advance.

Steve

By the way - although elegance would be all well and good, any suggestions as to how to achieve it at all would be appreciated, as I just keep drawing blanks.

Steve

Hurrah! I worked a way out myself, and it was more obvious that I expected.

So I will write my solution here in case anyone ever goes looking, but am still interested if there are better ways, or pitfalls to this one.

All I did was put an "On Error Resume Next" before the With command, and it stopped the runtime error.

  ' Set all the BLANK messages to not show
    On Error Resume Next    ' stops a runtime error if there are no "blank" lines to hide
    With ActiveSheet.PivotTables("SortedTable").PivotFields("Message")
        .PivotItems("(blank)").Visible = False
    End With

That's good enough for my situation.

Steve