Public Sub intern()
Dim wb As Workbook
Dim wks As Worksheet
Dim hls As Hyperlinks
Dim hl As Hyperlink
Set wb = ThisWorkbook
Set wks = wb.Worksheets(wb.Worksheets.Count)
Set hls = wks.Hyperlinks
For Each hl In hls
If hl.Address = "" Then
hl.SubAddress = "'" & wks.Name & "'!" & Right(hl.SubAddress, Len(hl.SubAddress) - InStr(hl.SubAddress, "!"))
End If
Next
End Sub