New try, Help needed

[miikka1978]

I have 110 ranges that I have labeled (A1,A2,A3...A110). First, I would like to select A1 and perform a certain task, and then I would like to select A2 and perform the same task. The problem is that I don't know how to write a code that uses for-loop to do the task for all the 110 ranges. Here you can see the code that I was able to create by recording the macro. Could someone help me with this piece of code?

Sub AT()

Application.Goto Reference:="A1"
Selection.Copy
Sheets("AS").Select
Range("A63").Select
ActiveSheet.Paste
Application.Run "'Excel 7.0.xls'!TS"
Application.Run "'Excel 7.0.xls'!TT"
Application.Goto Reference:="A2"
Selection.Copy
Sheets("AS").Select
Range("A63").Select
ActiveSheet.Paste
Application.Run "'Excel 7.0.xls'!TS"
Application.Run "'Excel 7.0.xls'!TT"
End Sub

[[email protected]]

Not that I'd probably do it this way but...


Sub AT()
for looper=1 to 110
Application.Goto Reference:="A"& trim(str(looper))
Selection.Copy
Sheets("AS").Select
Range("A63").Select
ActiveSheet.Paste
Application.Run "'Excel 7.0.xls'!TS"
Application.Run "'Excel 7.0.xls'!TT"
next
end sub

miikka1978 wrote:
> I have 110 ranges that I have labeled (A1,A2,A3...A110). First, I would
> like to select A1 and perform a certain task, and then I would like to
> select A2 and perform the same task. The problem is that I don't know
> how to write a code that uses for-loop to do the task for all the 110
> ranges. Here you can see the code that I was able to create by
> recording the macro. Could someone help me with this piece of code?
>
> Sub AT()
>
> Application.Goto Reference:="A1"
> Selection.Copy
> Sheets("AS").Select
> Range("A63").Select
> ActiveSheet.Paste
> Application.Run "'Excel 7.0.xls'!TS"
> Application.Run "'Excel 7.0.xls'!TT"
> Application.Goto Reference:="A2"
> Selection.Copy
> Sheets("AS").Select
> Range("A63").Select
> ActiveSheet.Paste
> Application.Run "'Excel 7.0.xls'!TS"
> Application.Run "'Excel 7.0.xls'!TT"
> End Sub
>
>
> --
> miikka1978
> ------------------------------------------------------------------------
> miikka1978's Profile: http://www.excelforum.com/member.php...o&userid=32294
> View this thread: http://www.excelforum.com/showthread...hreadid=553510

[miikka1978]

Thank you for such a quick repply.