Hi Norman,

Based on your mail i viewed the site mentioned by you.

I tried to copy this code and tried to run it.

Sub Test1()
Dim sh As Worksheet
Dim DestSh As Worksheet
Dim Last As Long

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

'Delete the sheet "MergeSheet" if it exist
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.Worksheets("MergeSheet").Delete
On Error GoTo 0
Application.DisplayAlerts = True

'Add a worksheet with the name "MergeSheet"
Set DestSh = ThisWorkbook.Worksheets.Add
DestSh.Name = "MergeSheet"

'loop through all worksheets and copy the data to the DestSh
For Each sh In ThisWorkbook.Worksheets
If sh.Name < DestSh.Name Then
Last = LastRow(DestSh)

'This example copies everything, if you only want to copy
'values/formats look at the example below this macro
sh.Range("A1:l1").Copy DestSh.Cells(Last + 1, "A")

'This will copy the sheet name in the H column if you want
DestSh.Cells(Last + 1, "H").Value = sh.Name

End If
Next

Application.Goto DestSh.Cells(1)

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub


But it showing me error as Compiler Error: Sub or Function not
Defined.
Last = LastRow(DestSh)

What should i do in this regards.

Awaiting for a resolution from your end.

Thanks

Akash



On May 10, 12:58 pm, "Norman Jones"
wrote:
HiAkash,

Like Nick I have a problem understanding the
significance of your TextBox controls. Presumably,
others experienced similar difficulty because your
original post from 2 days ago does not appear to
have received any response.

To create a summary sheet containing the data from
the 100 sheets, see Ron de Bruin's sample code at:

Merge cells from all or some worksheets into one Master sheet
http://www.rondebruin.nl/copy2.htm

---
Regards,
Norman

"Akash" wrote in message

ups.com...



Hi

I have a Worksheet with 100 Sheets

All the Sheet is named as 1,2,3,4,5,6,7,8,9,10......100

All the Sheets is having same format.

All the Sheets i have Two Columns

B & D
Column B Labels
Column D Text Box

In Each Sheet we have 24 Labels & 24 Text Boxes (Column C = Labels &
Column D = Keying area)

Now I want is to develop a macro through which i can accumulate
data in one sheet named as Summary.

Which shows data as

Form No| Client Name / Company| Location | Version

1 XYZ ABC India 1.1
2 WXY DEF USA 1.2
3 ZWX GHI Canada 1.3

I want to accumulate all the data of Sheet 1 to Sheet 100 present in
the entire
worksheet into a new Sheet Summary in the same workbook.

How to do that. I am in desperate need of this. awaiting for a
solution to this problem.

Thanks

Akash- Hide quoted text -

- Show quoted text -