Inserting a worksheet into an open workbook via VBA code

I am trying to insert a worksheet from file into an open workbook with VBA
code. I was wandering what the code needs to look like.
Thanks

"manillla" <[email protected]> wrote in message
news:[email protected]...
>I am trying to insert a worksheet from file into an open workbook with VBA
> code. I was wandering what the code needs to look like.
> Thanks


Hi Manilla

Try something like:

Sub Tester()

Workbooks("Book1.xls").Sheets("YourSheetName").Copy _
After:=Workbooks("Book2.xls"). _
Sheets(Workbooks("Book2").Sheets.Count)
End Sub

---
Regards,
Norman

Hi Manilla,

> Sub Tester()
>
> Workbooks("Book1.xls").Sheets("YourSheetName").Copy _
> After:=Workbooks("Book2.xls"). _
> Sheets(Workbooks("Book2").Sheets.Count)
> End Sub

should have read:

Sub Tester()

Workbooks("Book1.xls").Sheets("YourSheetName").Copy _
After:=Workbooks("Book2.xls"). _
Sheets(Workbooks("Book2.xls").Sheets.Count)
End Sub


(The ".xls" was missing from the last instance of "Book2").


---
Regards,
Norman



"Norman Jones" <[email protected]> wrote in message
news:[email protected]...
> "manillla" <[email protected]> wrote in message
> news:[email protected]...
>>I am trying to insert a worksheet from file into an open workbook with VBA
>> code. I was wandering what the code needs to look like.
>> Thanks
>
>
> Hi Manilla
>
> Try something like:
>
> Sub Tester()
>
> Workbooks("Book1.xls").Sheets("YourSheetName").Copy _
> After:=Workbooks("Book2.xls"). _
> Sheets(Workbooks("Book2").Sheets.Count)
> End Sub
>
> ---
> Regards,
> Norman
>
>
>
>