Dim FoundCell as Range
with activesheet
set foundcell = .range("b5:b500").find(what:=.range("b3").value)
if foundcell is nothing then
msgbox "not found"
else
foundcell.activate
end if
end with



judith wrote:

How do i code a macro to find a value in a specific range of cells. The value
to locate will be typed by the user in a cell

Cells.Find(What:=B3, LookIn:=b5:b500).Activate ??????

Any suggestions please

thanks

--

Dave Peterson