where is the mistake?

[anilg0001]

Range("A1").Select
l = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
For l = l To 1 Step -1
With Range("A" & i)
Selection.Hyperlinks(1).Follow
End With
Next l

in my excel a1 to a20 have hyperlink
i want to open all the web pages at the same time
a1 t0 a20 is not constant

 

[Blade Hunter]

You aren't selecting it. just remove the selection and you should be OK

Try this:

l = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
For l = l To 1 Step -1
With Range("A" & i)
    .Hyperlinks(1).Follow
End With
Next l

Cheers

Dan

 

[anilg0001]

is shows error on

.Hyperlinks(1).Follow</pre>

 

[wigi]

Typo: i should be l:

You aren't selecting it. just remove the selection and you should be OK

Try this:

l = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
For l = l To 1 Step -1
With Range("A" & l)
    .Hyperlinks(1).Follow
End With
Next l

Cheers

Dan

 

[anilg0001]

yes i got the error
it is in the

With Range("A" & i)
it is not i and it is l

ok
but only one url is opend
i want to open all the urls from a range
how is that?
</pre>

 

[Blade Hunter]

Maybe this?

For l = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    Range("A" & l).Hyperlinks(1).Follow True
Next l

The True tells it to open in a new window. Otherwise it is opening them all but one after the other in the same window.

Also removed a bunch of code that was not needed.

 

[anilg0001]

a1 cells url was only opened
why not open a2 to a20 cells urls

 

[Blade Hunter]

a1 cells url was only opened
why not open a2 to a20 cells urls

I edited my post, grab the new code:

For l = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    Range("A" & l).Hyperlinks(1).Follow True
Next l

and report back

Cheers

Dan

 

[anilg0001]

got ur last post but same problem occurs
only a1 url was opened no other urls are opened

 

[anilg0001]

is the problem here?

.Hyperlinks(1)</pre>