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!