Hello, I have a problem with VB giving a "runtime error '13' Mismatch". It only happens when I highlight more than one cell. Here is my code. I will mark on it where the debug takes me too, with a **.


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C10") > 0 And Range("J3") = ("") Then Range("J3") = Now Else J3 = ("")
If Range("C10") < 1 And Range("J3") > 1 Then Range("J3") = ("")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim test As Variant

For Each rng In Target
      If Not Application.Intersect(rng, Range("c10:c110")) Is Nothing Then
   **    If Target > 1 Then
            If IsEmpty(Cells(Target.Row, "e")) Then
               Application.EnableEvents = False
               Cells(Target.Row, "e").Value = Now()
            End If
         End If
      End If
   Next rng
   Application.EnableEvents = True
   Set rng = Nothing
End Sub

Private Sub Worksheet_Calculate()
   Dim rng As Range
   ActiveSheet.Protect userinterfaceonly:=True
   For Each rng In Range("c10:c110")
      If rng.Value > 1 Then
         If IsEmpty(Cells(rng.Row, "e")) Then
            Cells(rng.Row, "e").Value = Now()
         End If
      End If
   Next rng
End Sub
Thanks for any help that can be given.