What This VBA Code Does
This VBA code looks for any shape within the ActiveWorkbook with a specific name and gives it a hyperlink (with a hover description) back to a specific Worksheet. This is very useful when creating "Back" or "Go To" buttons within your spreadsheets.
Sub Picture_AddHyperlink()
'PURPOSE: Add A Hyperlinks (linking within the workbook) to a specific
'shape/picture name throughout the workbook
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault
Dim shp As Shape
Dim sht As Worksheet
Dim ShapeName As String
Dim LinkAddress As String
Dim LinkDescription As String
ShapeName = "Picture 2"
LinkAddress = "'Contents'!A1"
LinkDescription = "Back to Contents"
'Loop Through each worksheet in Workbook
For Each sht In ActiveWorkbook.Worksheets
'Look for specified shape
On Error Resume Next
Set shp = sht.Shapes(ShapeName)
On Error GoTo 0
'If specified shape is found, add hyperlink
If Not shp Is Nothing Then
sht.Hyperlinks.Add _
Anchor:=shp, _
Address:="", _
SubAddress:=LinkAddress, _
ScreenTip:=LinkDescription
End If
'Reset shp variable
Set shp = Nothing
Next sht
End Sub
