Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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? |
#2
|
|||
|
|||
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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I copy only the month from a date | Excel Worksheet Functions | |||
Copy worksheets with formulas between different workbooks | Excel Discussion (Misc queries) | |||
Copy Function | Excel Discussion (Misc queries) | |||
Copy and pasting graphs to PowerPoint | Excel Discussion (Misc queries) | |||
how do I make a copy of a worksheet and retain formulas but not data | Setting up and Configuration of Excel |