Hi. I have a workbook that has 80 sheets. Is there a way to copy column A
from every sheet and paste it one under the other into Sheet1? Thanks!

Try something like this

Sub CopyColumnA()
Dim Sh As Worksheet, TempSh As Worksheet

'Change the name accordingly
Set Sh = Worksheets("Sheet1")

'Clear column A
Sh.Range("A:A").ClearContents

For Each TempSh In ActiveWorkbook.Worksheets
If Not TempSh Is Sh Then
TempSh.Range("A1", TempSh.Cells(TempSh.Rows.Count,
1).End(xlUp)).Copy _
Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Offset(1)
End If
Next TempSh
End Sub

--
Regards

Juan Pablo González

"Steph" wrote in message
...
Hi. I have a workbook that has 80 sheets. Is there a way to copy column
A
from every sheet and paste it one under the other into Sheet1? Thanks!

Start here
http://www.rondebruin.nl/copy2.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Steph" wrote in message ...
Hi. I have a workbook that has 80 sheets. Is there a way to copy column A
from every sheet and paste it one under the other into Sheet1? Thanks!