'This will open the file C:\data\ron.xls and copy Sheet1 in the Activeworkbook and then close C:\data\ron.xls

Sub test()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Application.ScreenUpdating = False
Set Wb1 = ActiveWorkbook
Set Wb2 = Workbooks.Open("C:\data\ron.xls")
Wb2.Sheets("Sheet1").copy _
after:=Wb1.Sheets(Wb1.Sheets.Count)
Wb2.Close False
Application.ScreenUpdating = True
End Sub

If you need a example with two open workbooks post back


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Himansu" <himansu114@hotmail.com> wrote in message news:O97PIg%23sFHA.1252@TK2MSFTNGP09.phx.gbl...
> Hello everyone,
>
> I would be interested in the a VBA example.
>
> Thanks,
> Himansu
>
> "Bill Ebbing" <Bill Ebbing@discussions.microsoft.com> wrote in message
> news:8225AE55-B16E-4EC6-AD79-AA0F6340FEBD@microsoft.com...
>> I need to create a vbscript (Not VBA) to copy a worksheet from one
> workbook
>> into another workbook.
>>
>> Any help would be appreciated.
>
>