I am using this:


Sub Macro8()
Range("G6").Select
Selection.Copy
ActiveCell.Offset(-4, -6).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.Run "checktrades.xls!Macro2"
Range("A2:B2").Select
Selection.Copy
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.End(xlToRight).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

I have a list in G6:G10 and was wondoring if this part of the macro -

Range("G6").Select
Selection.Copy

Can it be modified to start with G6 and progress thru the list to G10.

Thank you in advance.

You could do the following:

For i = 6 to 10
Range("G" & i ).Select
Next i

Include whatever functionality you want withint the FOR NEXT loop.

"carl" wrote:

I am using this:


Sub Macro8()
Range("G6").Select
Selection.Copy
ActiveCell.Offset(-4, -6).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.Run "checktrades.xls!Macro2"
Range("A2:B2").Select
Selection.Copy
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.End(xlToRight).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

I have a list in G6:G10 and was wondoring if this part of the macro -

Range("G6").Select
Selection.Copy

Can it be modified to start with G6 and progress thru the list to G10.

Thank you in advance.