Private Sub Worksheet_Change(ByVal Target As Range)
With Application
.EnableEvents = False
Target.Value = StrConv(Target, vbProperCase)
.EnableEvents = True
If Not .Intersect(Target, Range("C12")) Is Nothing Then
Me.Name = Target
End If
End With
End Sub