Option Explicit
Dim wksData As Worksheet
Dim wksShps As Worksheet
Dim Shp As Shape
Dim rLook As Range
Dim rFind As Range
Dim shtCell
Dim shtRange
Dim shtLastRow
Dim sBalloon As String

Sub NumberToBalloon()
'Contributing author: shg
'create hyperlink from column D bubble number (sheet1) to balloon shape 
(sheet5) _
  by text value
'Reverse of macro BalloonToNumber (author: shg)

Sheets(1).Activate
Sheets(1).Hyperlinks.Delete

For Each shtCell In shtRange
    If IsNumeric(shtCell) Then
        'msgbox allows stepping thru each cell to visually see if hyperlink _
         is created, then user can stop macro if they want to (for testing)
        For Each Shp In wksShps.Shapes
            If Shp.AutoShapeType = msoShapeOval Then
                Set rFind = shtCell.Find(what:=Shp.TextFrame.Characters.Text)
                If Not rFind Is Nothing Then
                shtCell.Activate
                MsgBox shtCell    'for testing
                    'creates a hyperlink
                    wksData.Hyperlinks.Add Anchor:=shtCell, _
                            Address:="", _
                            SubAddress:=Shp.Name  'creates an invalid 
reference
                End If
            End If
        Next Shp
    End If
'code removed
Next shtCell
End Sub