Please Help
 

I got help from some one last night and they gave me this code

Private Sub ListBox1_Click()
Dim rng as Range
If listbox1.ListIndex < -1 then
set rng = Range(Listbox1.Value)
if rng.hyperlinks.count 0 then
rng.select
rng.parent.parent.FollowHyperlink rng.hyperlinks(1).Address, _
rng.Hyperlinks(1).SubAddress, True
end if
End If
End Sub

The trouble I am having it is coming up with the error,

Run-time error '1004':
Method 'range' of object_global failed

I was asked how I populated the listbox and this is how I did it

Private Sub UserForm_Activate()
ListBox1.RowSource = "a:e"
End Sub

Where am I going wrong?

Thanks
Greg

AFAIK RowSource needs to be more explicit eg "a1:e4"

--
Ian
--
"Greg B" wrote in message
...
I got help from some one last night and they gave me this code

Private Sub ListBox1_Click()
Dim rng as Range
If listbox1.ListIndex < -1 then
set rng = Range(Listbox1.Value)
if rng.hyperlinks.count 0 then
rng.select
rng.parent.parent.FollowHyperlink rng.hyperlinks(1).Address, _
rng.Hyperlinks(1).SubAddress, True
end if
End If
End Sub

The trouble I am having it is coming up with the error,

Run-time error '1004':
Method 'range' of object_global failed

I was asked how I populated the listbox and this is how I did it

Private Sub UserForm_Activate()
ListBox1.RowSource = "a:e"
End Sub

Where am I going wrong?

Thanks
Greg

Thanks will try

"Ian" wrote in message
...
AFAIK RowSource needs to be more explicit eg "a1:e4"

--
Ian
--
"Greg B" wrote in message
...
I got help from some one last night and they gave me this code

Private Sub ListBox1_Click()
Dim rng as Range
If listbox1.ListIndex < -1 then
set rng = Range(Listbox1.Value)
if rng.hyperlinks.count 0 then
rng.select
rng.parent.parent.FollowHyperlink rng.hyperlinks(1).Address, _
rng.Hyperlinks(1).SubAddress, True
end if
End If
End Sub

The trouble I am having it is coming up with the error,

Run-time error '1004':
Method 'range' of object_global failed

I was asked how I populated the listbox and this is how I did it

Private Sub UserForm_Activate()
ListBox1.RowSource = "a:e"
End Sub

Where am I going wrong?

Thanks
Greg

Sorry that didn't work any more ideas?

Thanks
Greg
"Greg B" wrote in message
...
Thanks will try

"Ian" wrote in message
...
AFAIK RowSource needs to be more explicit eg "a1:e4"

--
Ian
--
"Greg B" wrote in message
...
I got help from some one last night and they gave me this code

Private Sub ListBox1_Click()
Dim rng as Range
If listbox1.ListIndex < -1 then
set rng = Range(Listbox1.Value)
if rng.hyperlinks.count 0 then
rng.select
rng.parent.parent.FollowHyperlink rng.hyperlinks(1).Address, _
rng.Hyperlinks(1).SubAddress, True
end if
End If
End Sub

The trouble I am having it is coming up with the error,

Run-time error '1004':
Method 'range' of object_global failed

I was asked how I populated the listbox and this is how I did it

Private Sub UserForm_Activate()
ListBox1.RowSource = "a:e"
End Sub

Where am I going wrong?

Thanks
Greg

I have worked it out all I did was the following code. I think I was
thinking too complicated for what i needed.

Private Sub ListBox1_Click()

ActiveSheet.Range("A1").Offset(ListBox1.ListIndex) .Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True


End Sub
Thanks
Greg
"Greg B" wrote in message
...
Sorry that didn't work any more ideas?

Thanks
Greg
"Greg B" wrote in message
...
Thanks will try

"Ian" wrote in message
...
AFAIK RowSource needs to be more explicit eg "a1:e4"

--
Ian
--
"Greg B" wrote in message
...
I got help from some one last night and they gave me this code

Private Sub ListBox1_Click()
Dim rng as Range
If listbox1.ListIndex < -1 then
set rng = Range(Listbox1.Value)
if rng.hyperlinks.count 0 then
rng.select
rng.parent.parent.FollowHyperlink rng.hyperlinks(1).Address, _
rng.Hyperlinks(1).SubAddress, True
end if
End If
End Sub

The trouble I am having it is coming up with the error,

Run-time error '1004':
Method 'range' of object_global failed

I was asked how I populated the listbox and this is how I did it

Private Sub UserForm_Activate()
ListBox1.RowSource = "a:e"
End Sub

Where am I going wrong?

Thanks
Greg