Don't forget that Conditional Formatting gives you this flexibility too!

--
Patrick Molloy
Microsoft Excel MVP
---------------------------------
"dan" wrote in message
...
This will probably be an easy one for someone. I have the following code:

Dim rng1 as Range
Sub test()
Set rng1 = Range("A1")
If rng1 = 1 Then
rng1.Font.Bold = True
Else:
End If
End Sub

So if the content of cell A1 is the number 1, the code will bold the
number.

I want to generalize the "if" statement so that if the content of cell A1
is
numeric, (any minus number, 0, or any positive number) the "if" statement
will bold it, but if there is text in the cell, it will not bold it. How
do
I change the code to make that happen?