Loop a range in code

[ONIWE]

Hello,

Please how can I put a loop in the code below to change the range so the code can perform 10 or more different searches. that is change range("y5") to Y6 and more.

With Sheets("Creditsafe").QueryTables.Add(Connection:="URL;" & Sheets("report").range("y5").Value, _
Destination:=Sheets("Creditsafe").range("A1"))

 

[ONIWE]

thanksssssssssss