Hi Jim,
Thanks for your reply.
Sorry there was a mistake when i pasted the code here.
Actually there is no "FindByValue" in my deactivate event. I gave the
exactly same way as you mentioned

Application.Onkey "^f"

But i am still facing the above mentioned problem. Am not able to figure out
wats wrong...

"Jim Cone" wrote:

This...
sub WorkBook_Deactivate()
Application.OnKey "^f", "FindByValue"
Application.OnKey "^F", "FindByValue"
End Sub

Should be...
sub WorkBook_Deactivate()
Application.OnKey "^f"
Application.OnKey "^F"
End Sub
--
Jim Cone
Portland, Oregon USA
(what is that little white box at the top right corner of the vbe?)




"swtupr"
wrote in message
I have an excel workbook where i have assigned an excel macro for the short
cut Ctrl+F as below:

Sub WorkBook_Activate()
Application.OnKey "^f", "FindByValue"
Application.OnKey "^F", "FindByValue"
End Sub

Public Sub FindByValue()
Application.Dialogs(xlDialogFormulaFind).Show,2,2 // to find by value not
formula
End Sub

And then i am trying to reset the ctrl+f functionality to normal in the
deactivate event as below:

sub WorkBook_Deactivate()
Application.OnKey "^f", "FindByValue"
Application.OnKey "^F", "FindByValue"
End Sub

The Ctrl+F working fine in my workbook where i have this code. But when i
open some other excel sheet and try to do a Ctrl+F the find dialog box is not
opened and nothing is happening .
Can i know why ctrl+f not working in other excel sheets and can i get a
solution for this issue please?????
Thanks.