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