Identifying a cell with text using code?

[Todd_M]

Hi-
If ActiveCell.Offset(0, .Value = Text Then
MsgBox "It works"
End If

Im trying to see if a cell located 8 cells to the left of a list has any text in it, and if it does to display a msgbox. My code does not work, any ideas??

[Barrie Davidson]

On 2002-03-25 09:25, Todd_M wrote:
Hi-
If ActiveCell.Offset(0, 8).Value = Text Then
MsgBox "It works"
End If

Im trying to see if a cell located 8 cells to the left of a list has any text in it, and if it does to display a msgbox. My code does not work, any ideas??

Try this:

If Application.WorksheetFunction.IsText _

    (ActiveCell.Offset(0, 8).Value) = True Then

    MsgBox "It works"

End If

Regards,

_________________

Barrie Davidson
My Excel Web Page

[ This Message was edited by: Barrie Davidson on 2002-03-25 09:45 ]

[Todd_M]

Guess what, it works Barrie, thanks!!!

[Todd_M]

Barrie- One follow up, Using this idea of a code:


If Application.WorksheetFunction.IsText _
(ActiveCell.Offset(0, .Value) = True Then
TextBox1.Text in Range("an:an")).Delete
End If

Im trying to delete a name in row "AN" with the name in textbox1. Inother words when activecell.offset(0, lists a value, then I want the name located in row "AN" (listed in textbox1) to delete!
Thanks