Hello Andrew,
I'm just getting around to trying out your new variation - thanks so much for that!
In this variant I get a type error, after the line:
Code:
If Len(sCode) - Replace(sCode, """", "") > 1 Then
Surely only a small thing.
Best regards - Lothar