Loop with variables

Hi guys,

I'm looking to run this code on a loop but amend the columns each time.

Range("a4:a238").Select
mypath = Range("a1").Value & ""
mytext = Range("a2").Value
If Not Len(mytext) = 0 Then
f = FreeFile
Open mypath & mytext & "" For Output As f
For i = 1 To Selection.Rows.Count
Print #f, Selection.Cells(i, 1).Text
Next
Close f
End If

so next loop would be running on
Range("b4:b238").Select
mypath = Range("b1").Value & ""
mytext = Range("b2").Value

Probably very simple but I'm getting myself in knots here
Thanks
D

You could use this code:

Please Login or Register  to view this content.

Regards,
Antonio