Debug problem when highlighting?

mpeplow · 06-06-2007, 03:01 PM

Maybe try changing

If Target > 1

to

If Val(Target) > 1

or

If Len(Target) > 1

What is in your cells? What is the Value of Target when the code breaks? Is it a number? Is it text?

**mudraker** · 06-06-2007, 06:07 PM

Try changing Target to rng in the for loop

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

**Zirus** · 06-08-2007, 07:47 AM

Thanks guys, I got it working. I was fixing to plug in the first suggestion, when I happen to look down at the next code section and it said "If rng.Value > 1 Then", so it hit me, well I should prob. try that first to keep it consistant...hehe but it seemed to work. Thanks guys.

Debug problem when highlighting?

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions