I have a few sheets on 1 workbook and would like to copy all the contents of those sheets onto the last used cells of another workbook. im sure is something small im missing. here is my code. Any help would be greatly appreciated.
i cant get it to run i keep getting a object variable problem.
Dim sht As Variant
Dim wb As Workbook
For Each sht In ActiveWorkbook.Sheets
sht.Activate
wb("ahi12.xls").Sheets("1,2,3").Range("a1:al1").Copy _
Destination:=wb("aui01.xls").sheet("aui01").Range("A1").End(xlUp).Offset(1, 0)
Next sht
i cant get it to run i keep getting a object variable problem.
Dim sht As Variant
Dim wb As Workbook
For Each sht In ActiveWorkbook.Sheets
sht.Activate
wb("ahi12.xls").Sheets("1,2,3").Range("a1:al1").Copy _
Destination:=wb("aui01.xls").sheet("aui01").Range("A1").End(xlUp).Offset(1, 0)
Next sht