How to run GetAsyncKeyState code in VBA without having to open a dialog box?

Question

I\'m trying to create a macro with a shortcut CTRL+SHIFT+H which follows the cell\'s internal hyperlink sub-address to its destination within the workbook. This was easy enough