Substitute for SendKeys?

[Guest]

If I click on a hyperlink in a worksheet that sends me to another location in
the workbook, I can return with ALT-BACKARROW. In VBA, I can return with:

Application.SendKeys "%{LEFT}"

Can I do the same thing without SendKeys?

 

[Peter T]

Hmm, the references must be stored somewhere but try this workaround -

Sub test()
Dim c As CommandBarButton

Set c = CommandBars.FindControl(ID:=1017) ' Back
On Error Resume Next
c.Execute
If Err.Number Then
Set c = CommandBars.FindControl(ID:=1018) ' Forward
c.Execute
End If

End Sub

Regards,
Peter T

 

[Guest]

Thank you!
--
Gary''s Student - gsnu200750

Hmm, the references must be stored somewhere but try this workaround -

Sub test()
Dim c As CommandBarButton

Set c = CommandBars.FindControl(ID:=1017) ' Back
On Error Resume Next
c.Execute
If Err.Number Then
Set c = CommandBars.FindControl(ID:=1018) ' Forward
c.Execute
End If

End Sub

Regards,
Peter T

 

[Guest]

Application.Goto
Yes, without supplying anything.
Bob Umlas
Excel MVP

 

[Guest]

Absolutely amazing !
Thank you !

I guess I am still a Student

 

[Peter T]

Cute !

What about Forward ?

Regards,
Peter T

Application.Goto
Yes, without supplying anything.
Bob Umlas
Excel MVP