Expand only Headings Named Rubric

Hello all, how would I write a Macro to collapse all headings, while leaving only headings named Rubric open?