Oops... Forgot the "End Sub". Here's correct code.

Sub ProperCase()
For Each c In Selection.Cells
c.Value = StrConv(c.Value, vbProperCase)
Next c
End Sub