Exclude column G

[theamericanpilot]

How do I exclude column G from this code? Thanks.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vVal
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("c5:j35")) Is Nothing Then Exit Sub

With Target

vVal = Format(.Value, "0000")
If IsNumeric(vVal) And Len(vVal) = 4 Then
Application.EnableEvents = False
.Value = Left(vVal, 2) & ":" & Right(vVal, 2)
.NumberFormat = "[hh]:mm"
End If
End With

Application.EnableEvents = True

End Sub

 

[hiker95]

theamericanpilot,

How about something like this:


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

If Intersect(Target, Range("C5:F35,H5:J35")) Is Nothing Then Exit Sub

 

[Rick Rothstein]

The method hiker95 posted is what came to my mind first; however, just so you have a choice, here is another way that should work also...

If (Intersect(Target, Range("c5:j35")) Is Nothing) And (Target.Column <> 7) Then Exit Sub

 

[theamericanpilot]

So simple...

Thanks