Change Hyperlink Screentip


It may take lot of time to change screen tip of each hyperlink in Excel, here is a code can do in few seconds
here you go :
Sub ChangeHyperLinkSceenTipOnAllShape()
    ‘—————————————–
    ‘–This Procedure will change screenTip
    ‘  of Cells and Shapes in ActiveSheet
    ‘—————————————–
    Dim wksSheet As Worksheet
    Dim shpShape As Shape
    Dim objHyperLink As Hyperlink
    Dim StrScreenTip As String
    StrScreenTip = InputBox(“Enter the Screen Tip”)
    If MsgBox(“Press Yes to Change Screentip of Cells Hyperlinks” & vbCrLf & _
              “Press No to Change Screentip on Shapes Hyperlinks”, vbYesNoCancel) = vbYes Then
        For Each objHyperLink In ActiveSheet.Hyperlinks
            If TypeName(objHyperLink.Parent) = “Range” Then
                objHyperLink.ScreenTip = StrScreenTip
            End If
        Next objHyperLink
    Else
        For Each objHyperLink In ActiveSheet.Hyperlinks
            If TypeName(objHyperLink.Parent) = “Shape” Then
                objHyperLink.ScreenTip = StrScreenTip
            End If
        Next objHyperLink
    End If
End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s