1. Copy the code into the sheet module, not a general module.

2. The code runs upon an event, not manually.

3. Since you are running off a calculated cell use this instead.

Private Sub Worksheet_Calculate()
Range("C1").Font.Name = _
IIf(Range("A1") = 0 Or Range("B1") = 0, "Times New Roman", _
"Wingdings")
End Sub

Right-click on the sheet tab and "View Code". Copy/paste into that module.

Assumes the formula

=IF(OR(A1=0,B1=0),"Incomplete Data",CHAR(IF(A1<B1,251,252)))

is entered in C1


Gord Dibben MS Excel MVP


On Mon, 2 Feb 2009 06:19:01 -0800, FARAZ QURESHI
wrote:

I copied and pasted the code in the VBA module (Alt+F11) but upon pressing
F5/pushing the run button the empty macro box appears, and upon changing the
data in A1 or A2 doesn't execute the code. Any idea?