Toplu link açma kodu düzenleme

[alpkilic]

Merhaba;

Kullandığım kodla chorome de yaklaşık 200 sayfa açıyorum. Dolayısıyla kilitlenme meydana geliyor.
Çözümü ise şu şekilde buldum.

A sütununa 50 link B sütununa 50 link ekleyerek çözülebilir sanırım.

Sorun ise elimdeki kod sadece A sütunu çalışıyor.

Bilen arkadaşlar bu düzenleyebilir mi acaba?

Sub Web_Sayfası_Aç()
    Dim i%
    For i = 1 To Range("A65536").End(3).Row
        If Cells(i, 1) <> "" Then
           Shell "explorer.exe  " & Cells(i, 1) & "", 1
        End If
    Next i
    i = Empty
   End Sub

 

[alpkilic]

Cevap verecek kimse yok sanırım....