karldou
07-29-2008, 06:19 AM
Hi,
As part of a small project i am looking to copy the contents of cell B25 from every sheet in the workbook. and then paste into row A in Sheet1.
I have created a macro that will copy B25 from Sheet2 then paste into row A in Sheet1, and then look at Sheet3. The problem is, the number sheets in the workbook will vary from month to month, and the sheet names will also change.
Worksheets("sheet2").Range("a4").Copy
Worksheets("sheet1").Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
Any help will be greatly appreciated!
As part of a small project i am looking to copy the contents of cell B25 from every sheet in the workbook. and then paste into row A in Sheet1.
I have created a macro that will copy B25 from Sheet2 then paste into row A in Sheet1, and then look at Sheet3. The problem is, the number sheets in the workbook will vary from month to month, and the sheet names will also change.
Worksheets("sheet2").Range("a4").Copy
Worksheets("sheet1").Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
Any help will be greatly appreciated!