Perhaps:

Sub dural()
Application.SendKeys ("%fh")
DoEvents
End Sub
--
Gary''s Student - gsnu200776


"Dennis Shaw" wrote:

I am using Excel 2003 and and my operating system is Windows XP.
Using Excel VBA,is there any way to activates the Search Comapanion? I have
tried Application.SendKey ("^{ESC}") but it does not work.