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/