Automatically changing screentip for "each"/"every" hyperlink in worksheet?

Hi All,

The script below works by adding a hyperlink with a custom screentip on-the-fly. However, the custom screentip only displays on the 1st hyperlinked cell.

- Does anyone know how to get the "custom" screentip to show on "EACH" hyperlink being created, on-the-fly?
or if that's not possible, does anyone know how to update "EVERY" hyperlink with custom screentip on-the-fly (instead of just the 1st)

Private Sub Worksheet_Change(ByVal Target As Range)
    
  On Error Resume Next
  If Not Target.Value = "" And Not Target.Row = 1 And Not Target.Row = 2 Then
    If Target.Value >= 1 And Target.Value <= 9999 Then
      Application.EnableEvents = False
      Hyperlinks.Add Target, Address:="http://www.internalsite.com/value?" & Target.Value
      Hyperlinks.ScreenTip = "Click to load item #" & Target.Value & vbLf & "Hold down mouse button 2-Seconds to Edit"
      Application.EnableEvents = True
    End If
  
  End If

EndSub

ps: This is using Excel 2007. Thanks so much, JMC

Solved! Thank you so much, Jason! And thank you for the quick reply too! Your suggestion worked beautifully!! -JMC

You're welcome.

In case you didn't notice, I did add an extra piece of code for you to fix the existing hyperlinks.

If you're happy that your query has been resolved could you please flag it as solved in the thread tools menu (just above post #1, on the right)