I have a huge spreadsheet that has been exported from Filemaker Pro, and the entries are mixed upper and lower case. Can anyone tell me how to change them all to upper case so that I'm not here till next year changing everything manually.
Thanking you for any help
Try the code below pasted into Sheet, This Workbook or Personal
I have included the options for Proper and Lower as well
Hope it helps
Sub ChangeCase() Dim Rng As Range '======================================================================== ' CHANGE SELECTED RANGE TO PROPER (OR OTHER - JUST UNQUOTE) ' WORKSHEET, WORKBOOK OR PERSONAL - NOT MODULE ' IF ONLY ONE CELL IS SELECTED THE WHOLE SHEET WILL BE CHANGED ' IF RANGE OF CELLS IS SELECTED THEN THAT RANGE WILL BE CHANGED '======================================================================== On Error Resume Next Err.Clear Application.EnableEvents = False For Each Rng In Selection.SpecialCells(xlCellTypeConstants, _ xlTextValues).Cells If Err.Number = 0 Then Rng.Value = StrConv(Rng.Text, vbUpperCase)' Rng.Value = StrConv(Rng.Text, vbLowerCase)' Rng.Value = StrConv(Rng.Text, vbProperCase) End If Next Rng Application.EnableEvents = True
I really appreciate the code that takes any data and changes it to proper text.
However, how can I make it take effect on the row 10 and below?