Sub Copy_Col_B()

Set Bk1 = Workbooks("A.xls")
Set Bk2 = Workbooks("B.xls")

For Sht = 2 To Bk1.Sheets.Count
Bk1.Sheets(Sht).Columns("B").Copy _
Bk2.Sheets(Sht).Columns("B")
Next Sht


End Sub
"pgarcia" wrote:

Hello all,
I have workbook A and workbook B. Both are the same, 130 sheets each. I need
to copy colum B from workbook B (which has changes) to A. I'm looking for a
loop that will start off on sheet 2 of both workbooks then go to the next
sheet (3) etc, to the end of both workbooks.

Thanks