Hi Tom
good point :-)

--
Regards
Frank Kabel
Frankfurt, Germany


Tom Ogilvy wrote:
ActiveCell.ClearContents
? isnumeric(activecell)
True



"Frank Kabel" wrote in message
...
Hi
try

Dim iSpecific As Integer
If Isnumeric(activecell.value) then
iSpecific = ActiveCell.Value
elseif ActiveCell.Value < "" Then
GoTo Nosearch
End If

-----Original 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/

.