' convert a string to camel case' for example: CamelCase("new file name") => "NewFileName"'Function CamelCase(ByVal Text As String) As String Dim i As Long ' convert all non-alphanumeric chars to spaces For i = Len(Text) To 1 Step -1 If InStr(1, "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789", Mid$(Text, i, 1), _ vbTextCompare) = 0 Then Mid$(Text, i, 1) = " " End If Next ' convert the string to proper case, and filter out all spaces CamelCase = Replace(StrConv(Text, vbProperCase), " ", "") End Function