Busqueda en Internet con link cambiante

[Galactico]

buenas noches, dispongo de esta macro para navegar dentro de una pagina web

 

Sub test()

    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")

    With IE
        .Top = 0
        .Left = 0
        .height = 1000
        .Width = 1050
        .Visible = True
        .Navigate "www.google.com"

        Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop


       
    End With
End Sub

estoy tratando de cambiar el "www.google.com" por el valor de una celda, específicamente concatenando el texto inicial del link (www.google.com/) y el texto de una celda que quiero buscar, por ejemplo:

el texto inicial seria www.google.com/

celda a1  contiene el texto "item1" por lo que el link debería quedar como: www.google.com/item1
celda a2 contiene el texto "item2"por lo que el link debería quedar como: www.google.com/item2

he intentado de las siguientes formas

.Navigate Range("a" & CStr(i)).Hyperlinks(1).Address  (utilizando el link completo en una celda)

también he probado con 

.Navigate "www.google.com/ & CStr(i)"   tratando de dejar www.google.com/ como texto fijo y utilizando el valor de las celdas a1 y a2, pero no logro resultados

 

    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
Dim rng As Range
    Set rng = Range("r1", Range("r200"))
    counter = rng.Count
For i = 1 To counter

With IE
        .Top = 0
        .Left = 0
        .height = 1000
        .Width = 1550
        .Visible = True
        .Navigate Range("a" & CStr(i)).Hyperlinks(1).Address
        Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop


End With
        End If
        Next i
        
      
        End Sub

por favor agradecería mucho cualquier tipo de ayuda para aclarar la forma en la que debo escribir el código

 

gracias

 

[Abraham Valencia]

Hola

Si tu intención es abrir diferentes páginas cuyo dominio es el mismo, no es necesario que en el bucle determines el tamaño y la visibilidad, basta hacerlo al inicio, así será un poco más rápido. Sobre como agregas el valor de cada celda, hay un dilema de concepto, en realidad basta tener algo así:

.navigate "https://www.google.com.pe/" & Range("A" & i)

Claro, eso en el entendido de que en cada celda está correctamente escrito el sub dominio y su extensión. Saludos.