Actually you can get to almost all worksheet functions:


Sub Macro1()
MsgBox (Application.IsText(Selection))
End Sub
--
Gary''s Student


"Chris Marlow" wrote:

Hi,

Try Not IsNumeric(x).

Regards,

Chris.

--
Chris Marlow
MCSD.NET, Microsoft Office XP Master


"achidsey" wrote:


Excel Experts

I am writing a autosum procedure. As part of the code I want to choose the
first cell in a column that contains a number. I use .End(xlUp) to get to
the top cell.

But how do I go down one cell if the top cell is text (a column heading).

I tried

If IsText(Selection) = True Then
Selection.Offset(1)
End If

But IsText only works as a worksheet function I think.

What code would I use to say: If this cell is text, go down one cell??

Thanks,

Alan


--
achidsey