E
efandango
I am trying to open Internet Explorer and make the cursor go to the Address
Bar (ALT-D). But cannot seem to get the ALT-D to kick in, can someone tell me
where I'm going wrong with this. Internet Explorer fires up, but the cursor
doesn't jump to the Address Bar
Yes, I know SendKeys is not always reliable but don't know any other way to
make this happen.
My Code:
Private Sub Lat2_Click()
On Error GoTo Err_Lat2_Click
Dim stAppName As String
stAppName = "C:\Program Files\Internet Explorer\iexplore.exe
http://maps.google.co.uk"
Call Shell(stAppName, 1)
Exit_Lat2_Click:
Exit Sub
Err_Lat2_Click:
MsgBox Err.Description
Resume Exit_Lat2_Click
Pause 5
SendKeys "%D", True
Bar (ALT-D). But cannot seem to get the ALT-D to kick in, can someone tell me
where I'm going wrong with this. Internet Explorer fires up, but the cursor
doesn't jump to the Address Bar
Yes, I know SendKeys is not always reliable but don't know any other way to
make this happen.
My Code:
Private Sub Lat2_Click()
On Error GoTo Err_Lat2_Click
Dim stAppName As String
stAppName = "C:\Program Files\Internet Explorer\iexplore.exe
http://maps.google.co.uk"
Call Shell(stAppName, 1)
Exit_Lat2_Click:
Exit Sub
Err_Lat2_Click:
MsgBox Err.Description
Resume Exit_Lat2_Click
Pause 5
SendKeys "%D", True