Debug problem when highlighting?

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

Please Login or Register  to view this content.

Thanks for any help that can be given.

Maybe try changing

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

or

Please Login or Register  to view this content.

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

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.