All,

I have quite a few hyperlinks in a workbook. Some of them are in cells and
some in objects. When I click on the hyperlinked cell or object i want that
cell to become the top row.

I was able to solve the problem for hyperlinks in the cell by using the
following code

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

Problem is that this does not work for hyperlinks in the objects. is there
a way to make the hyperlinked cell become the top row when hyperlink is
residing in an object such as a square or a rectangle.

Thanks much in advance.

RK