change every other column to proper case

[still learning]

Hi

I use this macro in a spreedsheet to change what is typed in C:C to proper case
I got a lot of help for writing the macro from this site…Thank you
I would like to modify it for another worksheet.
I would like to have every other column change to proper case
B4:B40,D4:D40,F4:F40 all the way to X4:X40

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Application.EnableEvents = False
Target.Value = WorksheetFunction.Substitute(WorksheetFunction.Proper(WorksheetFunction.Substitute(Target, "'", "z-z")), "z-Z", "'")
Application.EnableEvents = True
End If
End Sub

The columns in between are numbers

mike

 

[mumps]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:X")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Column Mod 2 = 0 Then
        Target = Application.WorksheetFunction.Proper(Target)
    End If
    Application.EnableEvents = True
End Sub[CODE=vba]

[/CODE]

 

[still learning]

Hi mumps

Works great Thank you

mike

 

[mumps]

You are very welcome.