Dim rw as Long, sStr as String
Dim sh as Worksheet
Worksheets("Details").Cells.ClearContents
rw = 1
for each sh in Worksheets
sStr = lcase(sh.Name)
if sStr < "details" and sStr < "setup" then
rw = rw + 1
With Worksheets("Details")
.cells(rw,1).Value = sh.Range("B3")
.Cells(rw,2).Value = sh.Range("J15")
End with
end if
Next

--
Regards,
Tom Ogilvy


"Greg B" wrote in message
...
Thats the thing I have not a limit of worksheets. Here is the idea I
have.

The two cells i need from all sheets are

"b3" and "j15"

the thing is when I have a new person I have an automatic page setup where
I
get their details and a new worksheet is added. I just want to collect
this
information from these sheets and place them on a worksheet called
"details"

Hope this is a little bit more helpful

Thanks
Greg
"Barb Reinhardt" wrote in message
...
How many worksheets do you have and where do you want to copy it?

"Greg B" wrote in message
...
I have a workbook that is volitile and I would like for a macro to look
up
value j13 and copy each one onto a worksheet. I need it to be volitle
so
I dont need to change it each time a new person is put on the database.

Any ideas would be great

Thanks

Greg