Case

Private Sub CommandButton1_Click()

Dim mycell As Range Dim myrange As Range

Set myrange = Worksheets("Changing Text").Range("B3:D10")

For Each mycell in myrange

'mycell.Value LCase(mycell.Value)

mycell.Value StrConv(mycell.Value, vbProperCase)

Next mycell

End Sub