Dim Foundcell as range

set foundcell = yourfindgoeshere

if foundcell is nothing then
beep
else
foundcell.offset(0,1).select
end with

(assuming you're finding on the activesheet.)

Bstice wrote:

Hello,

I know that this is a simple question, but I can't find the answer. I have
the VB code to find a cell in a worksheet. I would then like to have the
adjacent cell to the right highlighted. What is the code for that?

Thanks
B

--

Dave Peterson