If you are asking about the loop try this idea

lr = Cells(2, "a").End(xlDown).Row
For i = 1 To lr
'MsgBox Cells(i, "a")
qurl = "http://website?s=" + Cells(i, 1)
Next i

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Nastech" wrote in message
...
hi, I am trying to resove the use of script to my sheet, that usually
refferences a CELL C4.. instead I will look for data in a different
column
(AU), If there is a "." in column AU -or- if after a specified row, etc.
then exit; already have some of the specified below (incorrectly mixed
in
I'm sure, is what need help with).

with above, not sure how to mix with integer stuff. (not needed with my
parameters?). thanks, "portion" working on:

Option Explicit
Private Sub CommandButton1_Click()

If Range(testCellAddress).Value = "X" Then
Sub GetData()
Dim QuerySheet As Worksheet
Dim DataSheet As Worksheet
Dim qurl As String
Dim i As Integer 'how use with this sheet?
Dim Column1ID As String 'my addition, variables (url..?s=) below
Dim Column2ID As String 'my addition, DESTINATION
Dim topRowID As String 'my addition

Column1ID = Range("E4") 'has:
=SUBSTITUTE(SUBSTITUTE(CELL("address",$AU4),"$","" ),ROW(),"")
Column2ID = Range("E5") 'has:
=SUBSTITUTE(SUBSTITUTE(CELL("address",$EE4),"$","" ),ROW(),"")
topRowID = Range("C6") 'top of grid, should I modify for rows in grid
to a range?
'C4 ALTERNATIVE / USE cells column AU that do not have ".", C6 has:
=ROW($A$139)

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Set DataSheet = ActiveSheet

' ---------- my addition, if correct idea? need to mix with next section
With Target
If .Count 1 Then Exit Sub
If Target.Row < topRowID Then Exit Sub
' If Me.Cells(.Row, "A").Value = "." Then Exit Sub 'need to change
to indirect with Column1ID
If Me.Cells(.Row, Column1ID).Value = "." Then Exit Sub 'will see
if
this is correct
' ---------- my addition

i = 4 ' need help with interger reference per above, start row is not
row 4..
qurl = "http://website?s=" + Cells(i, 1)
i = i + 1
' While Cells(i, 1) < ""
While Cells(i, 1) < ""
qurl = qurl + "+" + Cells(i, 1)
i = i + 1
Wend

qurl = qurl + "&f=" + Range("E2") 'find format tags in cell
Range("E3") = qurl 'place string in cell