Title Case Validation

[jen2018]

How can I make sure that people enter information into a cell in Title Case?

 

[Mike H]

Hi,

Right click your sheet tab, view code and past this in. Text entered will be
changed to proper

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Formula = WorksheetFunction.Proper(Target.Formula)
End Sub

Mike

 

[jen2018]

Thanks but I only want Title Case in cells B6, E6, B9, E9 & B15. Is this
possible?

 

[Mike H]

maybe a bit to buggy, try this instead

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Target.Formula = WorksheetFunction.Proper(Target.Formula)
End Sub

 

[Mike H]

Yes that's possible, try this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B6, E6, B9, E9 ,B15")) Is Nothing Then
Target.Formula = WorksheetFunction.Proper(Target.Formula)
End If
End Sub

Mike

 

[jen2018]

Thanks, it worked perfectly

maybe a bit to buggy, try this instead

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Target.Formula = WorksheetFunction.Proper(Target.Formula)
End Sub