Sub Sentence_Case()
Dim s As Variant, ch As Variant, Start As Boolean
Dim i As Integer, ii As Integer, cell As Range
Dim ax() As String
ax() = Split("FALSE,TRUE", ",")
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 "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
For ii = 0 To UBound(ax)
s = Replace(s, ax(ii), ax(ii), Compare:=vbTextCompare)
Next ii
cell.Value = s
Next
End Sub
Bookmarks