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.
'PURPOSE: Add A Hyperlinks (linking within the workbook) to a specific
'shape/picture name throughout the workbook
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
'Reset shp variable
Set shp = Nothing