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.
Bookmarks