I'm trying to point to files and add a hyperlink to each cell. This is my
code.
Sub FindFiles()
Dim rng As Range
Dim lRow As Long
Dim Filename As Variant
Filename = Application.GetOpenFilename(FileFilter:="Excel File
(*.xls),*.xls", MultiSelect:=True)
If TypeName(Filename) <> "Boolean" Then
Range("A1").Resize(UBound(Filename, 1) - LBound(Filename, 1) + 1).Value =
Application.Transpose(Filename)
End If

lRow = Range("A65536").End(xlUp).Row
Set rng = Range("A1:A" & lRow)
For Each c In rng
c.Hyperlinks.Add
Next

End Sub

It fails here:
c.Hyperlinks.Add

Any idea why?

Thanks,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.

Hi Ryan

Replace the below code

> lRow = Range("A65536").End(xlUp).Row
> Set rng = Range("A1:A" & lRow)
> For Each c In rng
> c.Hyperlinks.Add
> Next

with

Dim lngRow As Long, lngLastRow As Long
lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For lngRow = 1 To lngLastRow
ActiveSheet.Hyperlinks.Add Range("A" & lngRow), Range("A" & lngRow)
Next

'If it is not the activesheet specify the sheet name...

If this post helps click Yes
---------------
Jacob Skaria


"ryguy7272" wrote:

> I'm trying to point to files and add a hyperlink to each cell. This is my
> code.
> Sub FindFiles()
> Dim rng As Range
> Dim lRow As Long
> Dim Filename As Variant
> Filename = Application.GetOpenFilename(FileFilter:="Excel File
> (*.xls),*.xls", MultiSelect:=True)
> If TypeName(Filename) <> "Boolean" Then
> Range("A1").Resize(UBound(Filename, 1) - LBound(Filename, 1) + 1).Value =
> Application.Transpose(Filename)
> End If
>
> lRow = Range("A65536").End(xlUp).Row
> Set rng = Range("A1:A" & lRow)
> For Each c In rng
> c.Hyperlinks.Add
> Next
>
> End Sub
>
> It fails here:
> c.Hyperlinks.Add
>
> Any idea why?
>
> Thanks,
> Ryan---
>
> --
> Ryan---
> If this information was helpful, please indicate this by clicking ''Yes''.

Amazing! Amazing!! Amazing!!!

Thanks,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Jacob Skaria" wrote:

> Hi Ryan
>
> Replace the below code
>
> > lRow = Range("A65536").End(xlUp).Row
> > Set rng = Range("A1:A" & lRow)
> > For Each c In rng
> > c.Hyperlinks.Add
> > Next
>
> with
>
> Dim lngRow As Long, lngLastRow As Long
> lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
> For lngRow = 1 To lngLastRow
> ActiveSheet.Hyperlinks.Add Range("A" & lngRow), Range("A" & lngRow)
> Next
>
> 'If it is not the activesheet specify the sheet name...
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "ryguy7272" wrote:
>
> > I'm trying to point to files and add a hyperlink to each cell. This is my
> > code.
> > Sub FindFiles()
> > Dim rng As Range
> > Dim lRow As Long
> > Dim Filename As Variant
> > Filename = Application.GetOpenFilename(FileFilter:="Excel File
> > (*.xls),*.xls", MultiSelect:=True)
> > If TypeName(Filename) <> "Boolean" Then
> > Range("A1").Resize(UBound(Filename, 1) - LBound(Filename, 1) + 1).Value =
> > Application.Transpose(Filename)
> > End If
> >
> > lRow = Range("A65536").End(xlUp).Row
> > Set rng = Range("A1:A" & lRow)
> > For Each c In rng
> > c.Hyperlinks.Add
> > Next
> >
> > End Sub
> >
> > It fails here:
> > c.Hyperlinks.Add
> >
> > Any idea why?
> >
> > Thanks,
> > Ryan---
> >
> > --
> > Ryan---
> > If this information was helpful, please indicate this by clicking ''Yes''.