Copy all Screentips

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a range of cells and in each cell is a hyperlink. Assocaiated with
each hyperlink is a screentip. What code would you use to go to each cell
and get the screentip and put in an array?
 
This should help:

Sub ScreenTip()

Dim hp As Hyperlink
Dim stArray() As Variant
Dim i As Integer

i = 0
For Each hp In ActiveSheet.Hyperlinks
ReDim Preserve stArray(i)
stArray(i) = hp.ScreenTip
i = i + 1
Next hp

'Do something with stArray

End Sub

Regards
Rowan
 
Back
Top