Hyper Link Screen Tips

[BrWolv]

Hi,
I am using VBA to edit all of my Hyperlink Screen Tips, which works really well on my master worksheet. I am looking to edit all the other Worksheet Hyperlinks as well. This is what I have run on my Master Sheet;
Sub HLSCREENTIP()
Dim hl As Hyperlink
Dim rng As Range
Dim hlTip As String
'// Refine range if needed
Set rng = Sheets("SoCal Master").UsedRange
'// To apply to the active sheet
'// Set rng = ActiveSheet.UsedRange
'// Tip to replace current tips
hlTip = "Press For BoM"

For Each hl In rng.Hyperlinks
hl.ScreenTip = hlTip
Next hl
End Sub

I need to change the Screen Tip for the individual sheets, and would like to use code to run through all of them (over 200). I can edit the second Tip, however, i cant seem to fingure out how to get it to run on all sheets (Except Sheet 1, which is the Master Sheet). Can someone help me please?

 

[Ralajer]

Hello again. The below is just a modification of my earlier code with the addition of a loop through all the worksheet in the workbook. It will skip the sheet named "SoCal Master"

Sub HLSCREENTIPWB()
    Dim ws As Worksheet
    Dim hl As Hyperlink
    Dim hlTip As String

    hlTip = "Press For BoM"

    For Each ws In Worksheets
        If ws.Name <> "SoCal Master" Then
            For Each hl In ws.UsedRange.Hyperlinks
                hl.ScreenTip = hlTip
            Next hl
        End If
    Next ws
End Sub

Related Post