Sub simpleloop()

Const sCell As String = "$M$4"

Dim ws As Worksheet
Dim wb As Workbook

Set wb = Application.Workbooks.Add

For Each ws In ThisWorkbook.Worksheets

wb.Sheets(1).Range("B" & Rows.Count).End(xlUp).Offset(1).Value =
ws.Range(sCell).Value

Next

End Sub



--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music


"carla 7" wrote:

Help deperately needed...I am trying to create a macro that will do the
following:
Copy the value of cell M4 for each worksheet in a particular workbook and
paste it to a new workbook, BUT the cells should be pasted one cell down
consecutivley in th the destination workbook.

Can anyone help me this?

Thanks