On Error Resume Next
iPos = Application.Match(var1, Range("B4:B32"), 0)
If iPos 0 Then _
MsgBox "hello"

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"ianripping " wrote in message
...
I am grabbing var1 from an inputbox.

I want to say if var1 = any of the values entered in cells b4:b32 then
goto Double

I tired

if var1 = range("b4:b32").value then goto double

but didnt work, any suggestions?


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