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?