Excel Macro: error when pasting - moving down 10 rows - pasting - 10 rows - pasting, etc?

Several problems fixed 'See comments Sub a() Dim TestWorkbook As Variant Dim mytest As Variant Dim s As String TestWorkbook = Array("test1", "test2", "test3") I = 1 'Start with 1 Workbooks. Open Filename:="S:\Result_Workbook. Xls" 'open only once For Each mytest In TestWorkbook s = mytest & ".

Xls" Workbooks. Open "c:\" & s Workbooks(s). Activate 'Remember to Activate Range("a4:a8").

Copy ' Now paste properly Workbooks("Result_Workbook. Xls"). Worksheets("Sheet1").

Range("l" & 5 + i). PasteSpecial Paste:=xlPasteValues ActiveWorkbook. Close SaveChanges:=False 'close after pasting I = I + 10 Next End Sub.

Many thanks. It works fine. Thanks for the tips and comments as they're really useful.

The using S as string part is also a nice thing to know. Save's me typing time. – Mike Aug 26 '10 at 10:49 @Mike Glad to know it worked.

Always remember the best method to start a Macro is recording the actions and peeping into the automagically generated code. – belisarius Aug 26 '10 at 11:57.

I cant really gove you an answer,but what I can give you is a way to a solution, that is you have to find the anglde that you relate to or peaks your interest. A good paper is one that people get drawn into because it reaches them ln some way.As for me WW11 to me, I think of the holocaust and the effect it had on the survivors, their families and those who stood by and did nothing until it was too late.