Try this:-

Code goes in your donor workbook. Alter the path and sheet name to suit:-

Sub LoopFiles()
Dim sDirectory As String
Dim sSpec As String
Dim sBook As String
Dim oBook As Workbook
sDirectory = "c:\myfiles" '< Change to suit
sSpec = "*.xls"
sBook = Dir(sDirectory & "\" & sSpec)
Do
Worksheets("Sheet4").Select
Worksheets("sheet4").Cells.Select '< Change copied sheet to suit
Selection.Copy
Set oBook = Workbooks.Open(sDirectory & "\" & sBook)
Windows(sBook).Activate
Sheets.Add.Name = "My Copied Sheet" '< Change to suit
Cells.Select
ActiveSheet.Paste
oBook.Save
oBook.Close
sBook = Dir()
Loop Until sBook = ""

End Sub

Mike

"sonu" wrote:

Hi ,
I stuck to problem actually i want to add a particular sheet to the more
than 50 excel files at the same time because i have got 50 files so its time
consuming to open them one by one .please help me in this regard.
Thanks
U.A