Using SendKeys to open Find box

[kgkev]

I assumed
SendKeys "^F"

would work but it doesn't any ideas / alternatives?

 

[MickG]

Hi,try:-

SendKeys "^f"

Mick

 

[RoryA]

Why do you want to use Sendkeys at all, if I might ask?

 

[kgkev]

I don't really! I would prefer to do it in a better way?


I want to open the Find dialog box but I can't get it to function correctly.

Basically my macro just selects all sheets then should open th FIND box. The user than takes over.

 

[RoryA]

Try using:

   Application.CommandBars.FindControl(ID:=1849).Execute

 

[kgkev]

Sub multitabsearch()

Dim wsSheet As Worksheet
    For Each wsSheet In ActiveWorkbook.Worksheets
        If wsSheet.Visible Then
            wsSheet.Select Replace:=False
        End If
    Next wsSheet
Application.CommandBars.FindControl(ID:=1849).Execute

End Sub

gives a

Run_time 91
Object variable or With block variable not set.

Office 2000??

 

[Ragnar1211]

Your code works for me

 

[kgkev]

could it be my version of xl then?

 

[RoryA]

I'm pretty sure the ID was the same back then. What do you get if you run:

Msgbox application.CommandBars(1).controls("Edit").controls("Find...").id

 

[kgkev]

Runtime 5
Invalid Procedure call or argument

Sub multitabsearch()

Dim wsSheet As Worksheet
    For Each wsSheet In ActiveWorkbook.Worksheets
        If wsSheet.Visible Then
            wsSheet.Select Replace:=False
        End If
    Next wsSheet
'Application.CommandBars.FindControl(ID:=1849).Execute
MsgBox Application.CommandBars(1).Controls("Edit").Controls("Find...").ID

End Sub