Copy Column A

[Steph]

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!

 

[Juan Pablo González]

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

 

[Ron de Bruin]

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