Replace this line:
rng.Case= wdTitleSentence 'wdUpperCase works; this doesn't; something else I could put here?
With the following:
rng.Text = UCase(Left(rng.Text, 1)) & LCase(Right(rng.Text, Len(rng.Text) - 1))