Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Proper case using VBA
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? -- tia Jock |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Proper case using VBA
This may work:-
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Or Target.HasFormula Then Exit Sub Application.EnableEvents = False Target = StrConv(Target, vbProperCase) Application.EnableEvents = True End Sub Mike "Jock" wrote: 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? -- tia Jock |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I change from upper case to proper case in excel 2002 | Excel Discussion (Misc queries) | |||
excel'03 how to convert a column from upper case to proper case | Excel Discussion (Misc queries) | |||
Excel: How do I change all upper case ss to proper case? | Excel Worksheet Functions | |||
Changing Upper case to Proper Case | Excel Worksheet Functions | |||
Proper case | Excel Programming |