if not (WorksheetFunction.Match(dbValue,range("A1:A3"),0) 0) then
msgbox "your message here"
exit sub
end if


Manges

--
mangesh_yada
-----------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...fo&userid=1047
View this thread: http://www.excelforum.com/showthread.php?threadid=37701