Capitalize first letter

I cant get excel to capitalize the first letter of every word in a cell as i type any ideas.
This is the code i have that doesn't work.

Private Sub Change()
    Dim x As Range
    For Each x In Selection
        x.Value = StrConv(x.Value, vbProperCase)
    Next x
    
End Sub