VBA code stopped working when conditional formatting was applied

[brinkster]

My VBA codes were working perfectly on my sheet. I then applied some conditional formatting to make it easier to look at and now the VBA code doesn't work. Any ideas?

Option Explicit



Private Sub Worksheet_Change(ByVal Target As Range)
    Call script1(Target)
    Call script2(Target)
   End Sub
Private Sub script1(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("H:H"), Target)
xOffsetColumn = 5
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "mm/dd/yyyy"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub
Private Sub script2(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("K:K,L:L")) Is Nothing Then
    Target.Value = UCase(Application.Substitute(Target.Value, " ", ""))
End If
Application.EnableEvents = True
End Sub

 

[bhos123]

are you getting any errors?