Como omitir una columna en una macro?

Tengo esta macro que se ejecuta desde la celda b a la ag

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("B:AG")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
If Len(Target) > 4 Or Len(Target) < 3 Then Exit Sub
xmin = Right(Target, 2)
If xmin > 59 Then Exit Sub
If Len(Target) = 4 Then
xhor = Left(Target, 2)
Else
xhor = Left(Target, 1)
End If
If xhor > 23 Then Exit Sub
Application.EnableEvents = False
Target.Value = TimeSerial(xhor, xmin, 0)
Application.EnableEvents = True
End If
End Sub

Pero necesito omitir la columna"w"