Here is the answer: 1) Using Symbolize from palette AND Completely Overwriting Yellow Box (i.e. don't just click and paste in cursor, highlight entire yellow box) Symbolize[ParsedBoxWrapper[TagBox[RowBox[{SubscriptBox["","RRR"],SubsuperscriptB??ox["BRV","BV","KJK"]}], "genericRRRTag", Editable->False, Selectable->False]]] 2) Get Name: Names["*RRR*"] 3) Get DisplayForm: pasteINname //DisplayForm 4) get AddInputAlias from palette then paste into the cursor (i.e. don't overwrite yellow box) the results from DisplayForm

This creates a variable and an alias to include it in equations

This is great. It is what I'm looking for. The next step is to select and paste it as a unit into an equation with other terms that have a similar format. Right now this variable turns into individual strings when I try to use it. If I use "Symbolize" to try and contain it in a single variable I get lots of errors. Do I need to write some kind of wrapper code to get it into format that "Symbolize" or its equivalent Mathematica commands can deal with? Can you point me to the commands that I would need to use? Thank you for your help. I'm embarrassed to say how much time I've spent trying to get this to work even with as much as custom notation is discussed on the forum and here.

I tried this Notation`Symbolize[ Notation`ParsedBoxWrapper[Style[Row[{Superscript["", "RVC"],Subsuperscript["BRV", "BV", "KJK"]}]]]] and I get string parsing errors from the StringJoin function.