Hello,

I have code in the SheetFollowHyperlink event of the Workbook class, which
takes the target cell of the hyperlink to the top row in the visible window.

The problem I am having is this: I have two types of hyperlinks in my
workbook - text, and textbox. For some reason, the text hyperlinks (text
directly in a cell) is triggering the SheetFollowHyperlink event and
performing the necessary scroll, but the hyperlinked textboxes are not. I put
in code on each worksheet to check if the textboxes are even being recognized
as hyperlink objects, and they are. Their type, however, is different. I
outputted the type of each hyperlink by using the hyperlink.type
property...and the text hyperlinks are reported as "msoHyperlinkRange", while
the textboxes are reported as "msoHyperlinkShape". This, of course, makes
sense...but the SheetFollowHyperlink event is supposed to be triggered when
ANY hyperlink object is clicked.

This is the code (including a debugging line with a msgbox to tell me when
the event has been triggered).

Code:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
MsgBox "entered SheetFollowHyperlink"
ActiveWindow.ScrollRow = ActiveCell.Row
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayWorkbookTabs = False
End With
End Sub

Any help will be very greatly appreciated. The issue is now time-sensitive!

Thank you,
Kriti

"kriti" wrote:

Hello,

I have code in the SheetFollowHyperlink event of the Workbook class, which
takes the target cell of the hyperlink to the top row in the visible window.

The problem I am having is this: I have two types of hyperlinks in my
workbook - text, and textbox. For some reason, the text hyperlinks (text
directly in a cell) is triggering the SheetFollowHyperlink event and
performing the necessary scroll, but the hyperlinked textboxes are not. I put
in code on each worksheet to check if the textboxes are even being recognized
as hyperlink objects, and they are. Their type, however, is different. I
outputted the type of each hyperlink by using the hyperlink.type
property...and the text hyperlinks are reported as "msoHyperlinkRange", while
the textboxes are reported as "msoHyperlinkShape". This, of course, makes
sense...but the SheetFollowHyperlink event is supposed to be triggered when
ANY hyperlink object is clicked.

This is the code (including a debugging line with a msgbox to tell me when
the event has been triggered).

Code:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
MsgBox "entered SheetFollowHyperlink"
ActiveWindow.ScrollRow = ActiveCell.Row
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayWorkbookTabs = False
End With
End Sub

Any help will be very greatly appreciated. The issue is now time-sensitive!

Thank you,
Kriti

You posted in the wrong area. Post this question in the VBA area.

B+
HALinNY

Would that be the Excel Programming group?

"HALinNY" wrote:



"kriti" wrote:

Hello,

I have code in the SheetFollowHyperlink event of the Workbook class, which
takes the target cell of the hyperlink to the top row in the visible window.

The problem I am having is this: I have two types of hyperlinks in my
workbook - text, and textbox. For some reason, the text hyperlinks (text
directly in a cell) is triggering the SheetFollowHyperlink event and
performing the necessary scroll, but the hyperlinked textboxes are not. I put
in code on each worksheet to check if the textboxes are even being recognized
as hyperlink objects, and they are. Their type, however, is different. I
outputted the type of each hyperlink by using the hyperlink.type
property...and the text hyperlinks are reported as "msoHyperlinkRange", while
the textboxes are reported as "msoHyperlinkShape". This, of course, makes
sense...but the SheetFollowHyperlink event is supposed to be triggered when
ANY hyperlink object is clicked.

This is the code (including a debugging line with a msgbox to tell me when
the event has been triggered).

Code:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
MsgBox "entered SheetFollowHyperlink"
ActiveWindow.ScrollRow = ActiveCell.Row
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayWorkbookTabs = False
End With
End Sub

Any help will be very greatly appreciated. The issue is now time-sensitive!

Thank you,
Kriti

You posted in the wrong area. Post this question in the VBA area.

B+
HALinNY

"kriti" wrote:

Would that be the Excel Programming group?

Yes, I believe that is the one where you are most likely to get help.

B+
HALinNY