Hi,

Try adding this line at the end:


Code:
--------------------

Selection.Find(LookAt:=xlPart).Activate

--------------------


Hope this helps.

B



Edmund Wrote:
In the FIND dialog box, I must activate checkbox €œFind entire cells
only€�
when the macro runs. This leaves this checkbox €œchecked€� even after
VBA code
execution ends.

I cant just use €œLookAt:=xlPart€� within the sample code shown
below as I
need VBA to be in €œLookAt:=xlWhole€� mode during executing.

How can I toggle it back from checked to non-checked when macro ends?

My current recorded by VBA:
Selection.Find(What:=ItemNumber, After:=ActiveCell, LookIn:=xlFormulas
_
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

Thanks in advance.

--
Edmund
(Using Excel 2000)


--
ben77
------------------------------------------------------------------------
ben77's Profile: http://www.excelforum.com/member.php...o&userid=35602
View this thread: http://www.excelforum.com/showthread...hreadid=557171