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