VBA Code To Add Worksheet Hyperlink To A Shape Object

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, _
      End If
    'Reset shp variable
      Set shp = Nothing
  Next sht

End Sub