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" wrote:

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

"Mike H" wrote:

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" wrote:

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