Help me automate my task, O Excel/Office wizards! →[More:]I have some strings of text in an Excel spreadsheet. Some are in ALL CAPS, some have just a Capital letter at the beginning of a string, and some have a Capital Letter At The Beginning Of Each Word, Even The Small Ones.

I want to fix the strings of the third type so they are like the second type, i.e. with only the initial capital still in place. Any way I can do this while a) leaving the ALL CAPS and initial caps in place and b) not going through and correcting them individually? I'm thinking there must be a way involving wildcards and find/replace, but my brain is broken.

And yes, I have no way of getting out of this task.

Sub SentenceCase()
For Each cell In Selection.Cells
s = cell.Value
Start = True
For i = 1 To Len(s)
ch = Mid(s, i, 1)
      Select Case ch
      Case "."
      Start = True
      Case "?"
      Start = True
      Case "a" To "z"
      If Start Then ch = UCase(ch): Start = False
      Case "A" To "Z"
      If Start Then Start = False Else ch = LCase(ch)
      End Select
Mid(s, i, 1) = ch
Next
cell.Value = s
Next
End Sub