So I have been searching the forum and only found the following code to bring
a hyperlinked cell to the top left of the window:

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

Is there anyway to do this BETWEEN worksheets (above code works only for
hyperlinks within same worksheet). No matter how I've tried to manipulate
this code clicking on a link from another worksheet does not bring the linked
cell to the top left of the window. Any help would be appreciated! Thanks.

Think I found the problem actually. I neglected to mention that the
hyperlinks are not in cells--they are clipart. So if I put in the below code
in the worksheet with the clipart, the linked cells on the other worksheet do
not go to the top of the page.

Any workaround?

"dgold82" wrote:

So I have been searching the forum and only found the following code to bring
a hyperlinked cell to the top left of the window:

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

Is there anyway to do this BETWEEN worksheets (above code works only for
hyperlinks within same worksheet). No matter how I've tried to manipulate
this code clicking on a link from another worksheet does not bring the linked
cell to the top left of the window. Any help would be appreciated! Thanks.

Clicking on a hyperlink attrached to a picture doesn't seem to trigger the
"followHyperlink" event.
If you want to use pictures instead of links in cells then you could use
macros instead of a hyperlink.

You could either create a single sub for each picture, or use one sub to
handle all of the calls (maybe switching destination based on the name of
the graphic: see Application.Caller)

Tim

"dgold82" wrote in message
...
Think I found the problem actually. I neglected to mention that the
hyperlinks are not in cells--they are clipart. So if I put in the below
code
in the worksheet with the clipart, the linked cells on the other worksheet
do
not go to the top of the page.

Any workaround?

"dgold82" wrote:

So I have been searching the forum and only found the following code to
bring
a hyperlinked cell to the top left of the window:

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

Is there anyway to do this BETWEEN worksheets (above code works only for
hyperlinks within same worksheet). No matter how I've tried to manipulate
this code clicking on a link from another worksheet does not bring the
linked
cell to the top left of the window. Any help would be appreciated!
Thanks.

Thanks, Tim. I recorded a macro that works fine and just added:
ActiveWindow.ScrollRow = ActiveCell.Row

"Tim Williams" wrote:

Clicking on a hyperlink attrached to a picture doesn't seem to trigger the
"followHyperlink" event.
If you want to use pictures instead of links in cells then you could use
macros instead of a hyperlink.

You could either create a single sub for each picture, or use one sub to
handle all of the calls (maybe switching destination based on the name of
the graphic: see Application.Caller)

Tim

"dgold82" wrote in message
...
Think I found the problem actually. I neglected to mention that the
hyperlinks are not in cells--they are clipart. So if I put in the below
code
in the worksheet with the clipart, the linked cells on the other worksheet
do
not go to the top of the page.

Any workaround?

"dgold82" wrote:

So I have been searching the forum and only found the following code to
bring
a hyperlinked cell to the top left of the window:

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

Is there anyway to do this BETWEEN worksheets (above code works only for
hyperlinks within same worksheet). No matter how I've tried to manipulate
this code clicking on a link from another worksheet does not bring the
linked
cell to the top left of the window. Any help would be appreciated!
Thanks.