G
Guest
How can I force 'proper' case for text within excel
The following code forces uppercase, however I would like only the first
letters of each word capitalized: ie Joe Bloggs.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("E3:F200")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub
Can this be tweaked to what I woulf like?
The following code forces uppercase, however I would like only the first
letters of each word capitalized: ie Joe Bloggs.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("E3:F200")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub
Can this be tweaked to what I woulf like?