Function FormatProper(ByVal strName As String) As String'**********************************************************************'* Take any name string and return it in proper capitalization'********************************************************************** Dim strProperName As String Dim varProperName As Variant Dim intCount As Integer Dim i As Integer varProperName = Split(strName,