No probs.

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

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"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?