A
ArmsteR
Hello I have a userform that will be a batch printing script when
completed hopefully.
My problem is I need to be able to work with the hyperlinks in a
column on my spreadsheet (column B) I've been told to use the
Followhyperlink on another forum but honestly I'm a little lost on how
to implement this.
I "THINK" I need to be able to extract the hyperlinks from the column
when making the listbox grab the data and put it into a 3rd column
within the listbox. Is this right and how would i do this? sorry i'm
a little lost. below is the module code I currently have.
Sub PrintFileList()
Dim URL As String
Dim hlnk As Hyperlink
Dim RwSrc As String
RwSrc = Sheet1.Name & "!" & Sheet1.Range _
("B2", Sheet1.Range("C65536").End(xlUp)).Address
With UserForm1.ListBoxFiles
..RowSource = vbNullString
..ColumnCount = -1
..MultiSelect = fmMultiSelectExtended
..RowSource = RwSrc
End With
Next
End Sub
Many thanks for help in this
completed hopefully.
My problem is I need to be able to work with the hyperlinks in a
column on my spreadsheet (column B) I've been told to use the
Followhyperlink on another forum but honestly I'm a little lost on how
to implement this.
I "THINK" I need to be able to extract the hyperlinks from the column
when making the listbox grab the data and put it into a 3rd column
within the listbox. Is this right and how would i do this? sorry i'm
a little lost. below is the module code I currently have.
Sub PrintFileList()
Dim URL As String
Dim hlnk As Hyperlink
Dim RwSrc As String
RwSrc = Sheet1.Name & "!" & Sheet1.Range _
("B2", Sheet1.Range("C65536").End(xlUp)).Address
With UserForm1.ListBoxFiles
..RowSource = vbNullString
..ColumnCount = -1
..MultiSelect = fmMultiSelectExtended
..RowSource = RwSrc
End With
Next
End Sub
Many thanks for help in this