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]

Hmmmm, most odd, it works for me:

I had to add a dim because I have option explicit by default but I ran this code:

Sub testing123()
Dim L As Long
For L = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    Range("A" & L).Hyperlinks(1).Follow True
Next L
End Sub

This was in Range A1 to A3

Excel Workbook
	A
1	http://www.microsoft.com
2	http://www.bandit.fm
3	http://www.sonymusic.com
4
Sheet1

 

[DaveU]

Made these changes and it worked fine for me.

Make sure you have "Option Explicit" entered at the top of your module, that will help you catch certain typos. To ensure it's entered automatically in future modules, in VBE>Tools>Options>Editor tab - make sure "Require Variable Declaration" is checked.

regards,

Dave

Dim l As Long
Range("A1").Select
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

 

[anilg0001]

I tried both of ur code and make sure VBE>Tools>Options>Editor tab - make sure "Require Variable Declaration" is checked.

but the problem is still goingon.

now i am going to try another excel

 

[Blade Hunter]

What browser are you using?

I am using IE 9 and they all open in seperate tabs inside one browser

 

[anilg0001]

I AM USING MOZILLA FIREFOX 5.0

my all codes are showing below

could you please find the why it not open

Option Explicit

Sub Macro1()

Dim L As Integer
Dim i As Integer
Dim M As Long

Selection.SpecialCells(xlCellTypeConstants, xlErrors + xlLogical + xlNumbers).ClearContents
Cells.Replace What:="Plastic Surgeon", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:=" mi.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
Range("B:B").Value = Range("A:A").Value
Range("B1").Select
For i = 1 To 1000 Step 2
With Range("B" & i)
Range("B" & i).Value = ""
End With
Next i
Range("B1").Select
Selection.Delete Shift:=xlUp

Range("A1").Select
For i = 2 To 1000 Step 2
With Range("A" & i)
Range("A" & i).Value = ""
End With
Next i

Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp

Columns("B:B").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp




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