Vooralsnog kom ik uit de voeten met:
Function JEC(cell As String) As String
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[A-Z\.&\ -]+"
Set a = .Execute(cell)
For Each it In a
If it.Length > Len(xStr) Then xStr = it
Next
End With
JEC = Application.Trim(xStr)
End Function