Combining VB Codes

[jmcole]

I am using the following code to capitalize the first letter of each word in columns D,E,F and I.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("D:D,E:E,F:F,I:I")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value2 = Application.WorksheetFunction.Proper(Target)
        Application.EnableEvents = True
    End If
End Sub

What can I add to also Capitalize the entire word in columns C and J.

Thank you

[Fluff13]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("D:D,E:E,F:F,I:I")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value2 = Application.WorksheetFunction.Proper(Target)
        Application.EnableEvents = True
    ElseIf Not Intersect(Target, Range("C:C,J:J")) Is Nothing Then
         Application.EnableEvents = False
        Target.Value = UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub

[JohnTopley]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("D:D,E:E,F:F,I:I")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value2 = Application.WorksheetFunction.Proper(Target)
    Else
        If Not Intersect(Target, Range("C:C,J:J")) Is Nothing Then
            Application.EnableEvents = False
            Target.Value2 = UCase(Target)
        End If
    End If
    Application.EnableEvents = True
End Sub

[jmcole]

Fluff13 and JohnTopley,

"Else", got it. Thank you both.

[Fluff13]

Glad to help & thanks for the feedback.