Assuming your summation sheet is sheet1

Sub getemall()
For i = 2 To Worksheets.Count
Cells(i, 1) = Sheets(i).Range("a3")
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Jane" wrote in message
...
I got a worksheet with 100 identical sheets containing data from 100
different projectparticipators.

I want to make a sheet, where I have the same data for each of the 100
participators. The data is calculated in each of the 100 worksheet.

It is not a sum of the data from the 100 worksheet but the exact data from
each worksheet.

Ex:
Partipator 1: ....
Participator 2:....

Can I do that in an easy way?
--
Jane