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?
|