IsText VBA Error

Hello. I'm using Excel XP. I don't know what's causing the error message
for following code:

If Application.IsText(ActiveCell.Value) Then
sText = ActiveCell.Value
Else
sNonText = ActiveCell.Value
EndIf

I get an "Object Required" error message. Any thoughts?? I've tried the
following as well:

If Application.IsText(ActiveCell.Value) = True then
....etc

I don't get it. This code is all over the web as an example of how to use
"IsText" in VBA. Do I need a special DIM statement, or reference??

Thanks.

--
Craig

Craig,
I would have said that you are missing the "WorksheetFunction" between
"Application" and "IsText" (as IsText is part of Excel, not VBA), but
Application.IsText works.
You sure the error is occurring on that line ?

NickHK

"Craig" <Craig@discussions.microsoft.com> wrote in message
news:7F0B1A8A-1A18-4091-A344-1C661ACE083E@microsoft.com...
> Hello. I'm using Excel XP. I don't know what's causing the error message
> for following code:
>
> If Application.IsText(ActiveCell.Value) Then
> sText = ActiveCell.Value
> Else
> sNonText = ActiveCell.Value
> EndIf
>
> I get an "Object Required" error message. Any thoughts?? I've tried the
> following as well:
>
> If Application.IsText(ActiveCell.Value) = True then
> ...etc
>
> I don't get it. This code is all over the web as an example of how to use
> "IsText" in VBA. Do I need a special DIM statement, or reference??
>
> Thanks.
>
> --
> Craig

Yes...and I don't understand why it's happening. I even tried your
"Worksheetfunction" example, and it doesn't work.
--
Craig


"NickHK" wrote:

> Craig,
> I would have said that you are missing the "WorksheetFunction" between
> "Application" and "IsText" (as IsText is part of Excel, not VBA), but
> Application.IsText works.
> You sure the error is occurring on that line ?
>
> NickHK
>
> "Craig" <Craig@discussions.microsoft.com> wrote in message
> news:7F0B1A8A-1A18-4091-A344-1C661ACE083E@microsoft.com...
> > Hello. I'm using Excel XP. I don't know what's causing the error message
> > for following code:
> >
> > If Application.IsText(ActiveCell.Value) Then
> > sText = ActiveCell.Value
> > Else
> > sNonText = ActiveCell.Value
> > EndIf
> >
> > I get an "Object Required" error message. Any thoughts?? I've tried the
> > following as well:
> >
> > If Application.IsText(ActiveCell.Value) = True then
> > ...etc
> >
> > I don't get it. This code is all over the web as an example of how to use
> > "IsText" in VBA. Do I need a special DIM statement, or reference??
> >
> > Thanks.
> >
> > --
> > Craig
>
>
>