insert a new sheet at the beginning and do something like
this



Sub Copyarea()

For x = 2 To Application.Worksheets.Count
Worksheets(x).select
Range(Range("A1"),Range("A1").end(xldown)).select
selection.copy
sheet("Sheet1").select ' here will be all code
together
Range("A65536").end(xlup).offset(1,0).select
activesheet.paste
Next

End Sub

Abdul Salam

-----Original Message-----
hi

I have a budget file with me.format of each sheet is as
follows


Gl code Budget Oct Nov DEC JAN...........SEPT
Total
0101120222 1200 100 100 100 100 ...........



total 20 Sheets in each file .I want to import this
into
accounting Package for that purpose i need to copy all
these codes into one sheet and prepare a trail balance
monthwise.
how can i do this?
Your help is greatly appreciated

Thanks
rc

.