event macro to make entry proper case stopped working

[still learning]

Why would this macro stop working?
I can't get F8 to work on it, either
It's used to make an entry proper case in B:B
It is in the sheet modular

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) 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

I edited this to add: I also tried to get it to run by closing out excel and loading it again.
mike

 

[still learning]

Opps
I double checked the macro a fourth time and realized that I had moved the data cells to C:C
maybe its time to quite for the day and start again tomorrow...or wait till monday

mike

 

[DanteAmor]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range, c As Range
  Set rng = Intersect(Target, Range("B:B"))
  If Not rng Is Nothing Then
    Application.EnableEvents = False
    For Each c In rng
      c.Value = Application.WorksheetFunction.Proper(c.Value)
    Next
    Application.EnableEvents = True
  End If
End Sub