Sub roog()
i = 1
For Each w In Worksheets
If w.Name = "special" Then
Else
Sheets("special").Cells(i, 1).Value = w.Range("B2").Value
i = i + 1
End If
Next
End Sub

This copy the value in B2 in all the sheets and put them in a sheet named
"special"
--
Gary's Student
gsnu200704


"Roog" wrote:

I have 125 sheets with every sheet displayed in the same manner. Now I would
like to copy cell B2 (and some more cells) of every 125 sheets into one new
sheet (table). As it would take too much time to copy everything manually, i
would like to know if there is a quicker way?

hope anyone can help me,

Roog