If Target.Address = "$C$10" Then
If Target.Value < "" Then
Application.Run "Program_Filter"


don't forget the extra End If

--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Modell" wrote in message
...
I ran into a problem. I have the following code in a worksheet, so when
that
cell is changed, it automatically runs a macro. Is there any way to have
it
skip the macro if the cell is blank?

Here's the code I have in place right now.


If Target.Address = "$C$10" Then
Application.Run "Program_Filter"

I want the application "Program_Filter" to automatically run when $C$10 is
changed only if the cell isn't blank. Basically, if it could check the
cell
first to determine whether or not it's blank, then if it is blank skip
running the macro, otherwise if it isn't blank, go ahead and proceed to
run
the macro.

Thanks for all your help Bob. You too Debra.


"Modell" wrote:

That works great. Thanks Bob.

"Bob Phillips" wrote:

range("A1").Value =""

where a1 is the cell with the DV.

--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Modell" wrote in message
...
Is there a way to reset a validation list to "blank" or for example
the
first
choice in the list in a macro?

Thanks.