If statements in VBA are different than in a worksheet. You need to
put and End If after each of the IF statements instead of just after
the last one. See if that helps. I didn't check the rest of the code
but that should be a start.

- John