05-12-2012, 11:38 AM -
BTW. You can make the same things with VB only:
Code:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Row = 1 Then SendKeys("+^%K")
End Sub
The TORDEX Team
http://www.tordex.com
http://www.tordex.com