I'm having bit of brainfade, I think !
Private p As String
Private d As String
Private m As String
The value I want to assign is returned by Designations("m/") or "p/" etc.
Function Designations(d As String) As Variant
Designations = Switch(d = "p/", "Producer:", d = "o/", "Orchestra:", d...