Hi Tom,

excellent!

Plus the capitalization:

[snip]
SwitchOrder = Join(v, " + ")
Mid(SwitchOrder, 1, 1) = UCase(Mid(SwitchOrder, 1, 1))
For lCnt = 1 To Len(SwitchOrder) - 1
If Mid(SwitchOrder, lCnt, 1) = " " Then
Mid(SwitchOrder, lCnt + 1, 1) = _
UCase(Mid(SwitchOrder, lCnt + 1, 1))
End If
Next
[snip]

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"