Mike Callahan
New Member
- Joined
- Jun 16, 2008
- Messages
- 17
The following is a routine to loop and list fields 75 places starting at A1. Problem is that don't know how to list a variant with a filed callout. Ex: Below. Is this possible? Thanks for any advice.
Sub Macro1()
counter = 1
flag = 75
Do Until flag = 0
flag = flag - 1
Sheets("sheet1").Select
Range("A(counter)":"I(counter)").Select
Selection.Copy
Sheets("sheet2").Select
Range("A1 ").End(xlDown).Select
Range(ActiveCell.Address).Offset(1, 0).Select
ActiveSheet.Paste
counter = counter + 1
Loop
End Sub
Sub Macro1()
counter = 1
flag = 75
Do Until flag = 0
flag = flag - 1
Sheets("sheet1").Select
Range("A(counter)":"I(counter)").Select
Selection.Copy
Sheets("sheet2").Select
Range("A1 ").End(xlDown).Select
Range(ActiveCell.Address).Offset(1, 0).Select
ActiveSheet.Paste
counter = counter + 1
Loop
End Sub