help with stubborn code!!!

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