Solved! Go to Solution.
Function FindLabel([Name]) var = [Name] splitStr = Split(var, chr(32)) for i = 0 to UBound(splitStr) tmpStr = Trim(splitStr(i)) if len(tmpStr) > 0 then tmpStr = UCase(Left(tmpStr,1)) & LCase(Right(tmpStr, Len(tmpStr) -1)) splitStr(i) = tmpStr next ProperCase = join(splitStr, " ") FindLabel = ProperCase End Function
Function FindLabel([Name]) var = [Name] splitStr = Split(var, chr(32)) for i = 0 to UBound(splitStr) tmpStr = Trim(splitStr(i)) if len(tmpStr) > 0 then tmpStr = UCase(Left(tmpStr,1)) & LCase(Right(tmpStr, Len(tmpStr) -1)) splitStr(i) = tmpStr next ProperCase = join(splitStr, " ") FindLabel = ProperCase End Function