Использовать целое число со свойством ячеек

Question

Попытка использовать целое число как часть ссылки на ячейку (для установки значения строки). Скрипт выполняется полностью, но всегда вызывает одну и ту же ячейку вместо того, чтобы проходить через столбец A. Что мне не хватает?

Sub GetURL()

 Dim i As Integer
 i = 1

 Dim url As String
 url = Sheets("urls").Cells(i, 1)

 Do While i < 5

 ActiveWorkbook.FollowHyperlink Address:=url, NewWindow:=True

 Application.Wait (Now + TimeValue("0:00:05"))

 i = i + 1

 Loop

End Sub