Sub SimulateMouseClickonHyperlink()
ActiveCell.Hyperlinks(1).Follow
End Sub

Move your cursor to the cell with the
hyperlink and press Shift + F10.