This macro doesn't work. It's supposed to follow the hyperlinks on each row
on columnn b. I get the following error: "Run-time error '9': Subscript
out of range"

any suggestions? thanks...

Sub FollowHyperlinks()
Dim c As Range
For Each c In ActiveSheet.Range("b11:b200")
c.Hyperlinks.Item(1).Follow
Next
End Sub

Your posted code should work if the range is fully packed with hyperlinks.
--
Gary''s Student - gsnu200859


"SteveC" wrote:

This macro doesn't work. It's supposed to follow the hyperlinks on each row
on columnn b. I get the following error: "Run-time error '9': Subscript
out of range"

any suggestions? thanks...

Sub FollowHyperlinks()
Dim c As Range
For Each c In ActiveSheet.Range("b11:b200")
c.Hyperlinks.Item(1).Follow
Next
End Sub

thanks gary -- the data in column b are actually formulas that reference
column a:

cell B15: =hyperlink(A15)

data in Column B are actually Internet URLs made with customized concatenate
formuals -- they are orders to a website. I don't want to actually open up a
webpage on my Internet browser, I just want to send the orders to a website.

I thought automaticlly having VBA "click" on hyperlinks in column b would be
the way to do it, but I think I was wrong about that. thanks...

"Gary''s Student" wrote:

Your posted code should work if the range is fully packed with hyperlinks.
--
Gary''s Student - gsnu200859