Copy all Screentips
 

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

"brmauer" wrote:

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?