Utilize a Select Case Statement in Target Intersect Statement

Hello,

I am currently using an Intersect statement in a worksheet module to perform two things:
1. Insert a time stamp into row 2 when row 1 has a price inserted
2.To clear that time stamp if the price is deleted at some later date.

My problem is with the time stamp value being deleted by the user.
If I try to clear the price (now that the time cell =empty) I get a Runtime error 91 - Object Variable or With block variable not set.

I would like to convert this code to a select case statement but I'm not sure how to do this in this situation. Would error coding be appropriate in this instance?

Any help would be most appreciated.

Please Login or Register  to view this content.

Thanks

Max57

An example workbook and an explanation in context would help.

Try this:

Please Login or Register  to view this content.

Warning:
I'm not an expert. I'm still trying to wrap my head around how it works.
I experimented with a piece of code from StephenR. You can find it here:

HTML Code: 

When I deleted a few lines it took a little while to complete the task. Maybe someone can adjust it to speed it up.

Try this:

Please Login or Register  to view this content.