Cannot assign macro to button....HELP!!!

This works

Sub Macro1() 
Application.CommandBars.FindControl(ID:=1849).Execute 
Application.SendKeys ("%t %h {DOWN} %n {ESC}") 
End Sub

And this doesn't

Private Sub CommandButton5_Click() 
Application.Dialogs(xlDialogValueFind).Show 
Application.SendKeys ("%t %h {DOWN} %n {ESC}") 
End Sub

Any ideas would be gratefully received

Hi Roy

I was trying to assign some code to a button so that it popped up with the "find" dialog box (i.e. CTRL-F), but in addition to this that it defaulted to searching the workbook and not the worksheet as would be normal...........hence the sendkeys code.

I could use the above macro but when I assigned it to a button of any type it failed?!??!

I then decided to forget about the button and give it a shortcut key of CTRL-F but after doing that it didn't behave as it should. Whenever I did a search using CTRL-F it would give me about 50% of the results I should have got?????

I decided to give up on that idea as I was now in the twilight zone so I'm now looking for a neat solution to searching the whole workbook if you have any ideas????

Hi Roy

Thanks but as you can see above, that's what I used....