This procedure is changing the contents of the cell to be displayed in sentence case, additionally it removes any leading and trailing spaces as well as any multiple spaces between words. It is useful if you import\/paste data to MS Excel that needs a client facing look. Nobody likes ALL CAPS look. Nobody.<\/p>\n\n\n\n
Sub CellTextCleaning()\n Dim CellValue As String\n Dim CellLen As Integer\n Dim CellRest As String\n\n Selection.NumberFormat = \"@\" 'Changes the cell type to text\n ActiveCell.Value = Application.WorksheetFunction.Trim(ActiveCell.Value) 'Removes any leading, trailing and multiple spaces\n ActiveCell.Value = LCase(ActiveCell.Value) 'Sets lowercase for the whole string\n \n CellValue = ActiveCell.Value 'Loads active cell's contents to CellValue\n CellLen = Len(CellValue) 'Counts number of characters\n CellRest = Mid(CellValue, 2, CellLen) 'Loads active cell's contents to CellRest starting from 2nd char\n\n CellValue = Mid(CellValue, 1, 1) 'Loads active cell's first character\n CellValue = UCase(CellValue) 'Capitalises the string\n\n ActiveCell.Value = CellValue & CellRest 'Joins capitalised string CellValue with CellRest to produce the end result\nEnd Sub<\/code><\/pre>\n\n\n\n\n\n\t<\/div>\n\t