Hi Tom
you probably meant IsNumeric instead of IsNumber :-)
Besides that I'm still not sure what the OP really wants
to check :-)

-----Original Message-----
Dim iSpecific As Integer
if not( isnumber(activeCell)) or Activecell.Text = "" then
goto NoSearch
End if

iSpecific = ActiveCell.Value


--
Regards,
Tom Ogilvy

"Steff_DK "
wrote in message
...
If activecell is text I get a runtime error with the
code below (of
course...).

I'd like to goto Nosearch, if cell value is text.
How can I write this into the below code?

Dim iSpecific As Integer
iSpecific = ActiveCell.Value

If ActiveCell.Value = "" Then
GoTo Nosearch
End If


---
Message posted from http://www.ExcelForum.com/



.