This is the first time I have posted on here so bear with me.....

I have a workbook, with 40 or so worksheets. All of the worksheets have the
same information, in the same places.

I want to pick out a summary of this information eg name, DOB, total charge
and invoice number etc. onto one sheet into columns A,B,C etc in a nice neat
little list.

I have done this before in VBA but cannot for the life of me remember the
wording (have not used VBA since). I do remember counting the columns as
numbers so column F line 26 would be 6,26, but that is all.

I am depseratly hoping that someone can help me because this is driving me
nuts now!

Thankyou so much in anticipation

Regards
Sandra

Hi Sandra

Try
http://www.rondebruin.nl/summary.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Sandra" wrote in message ...
This is the first time I have posted on here so bear with me.....

I have a workbook, with 40 or so worksheets. All of the worksheets have the
same information, in the same places.

I want to pick out a summary of this information eg name, DOB, total charge
and invoice number etc. onto one sheet into columns A,B,C etc in a nice neat
little list.

I have done this before in VBA but cannot for the life of me remember the
wording (have not used VBA since). I do remember counting the columns as
numbers so column F line 26 would be 6,26, but that is all.

I am depseratly hoping that someone can help me because this is driving me
nuts now!

Thankyou so much in anticipation

Regards
Sandra

I haven't tried this myself so there's likely errors in the code, but
try this...

set summ = ActiveWorkbook.Worksheets("theNameOfTheSummaryShee t")
i = 1
for each sheet in ActiveWorkbook.Worksheets
if sheet.name="theNameOfTheSummarySheet" then goto SKIPTHISONE
theThingIWant = sheet.range("A1") ' adjust this to get the value
you're interested in
summ.Cells(1, i) = theThingIWant ' the first number is the row,
the second is the column
SKIPTHISONE:
next sheet

Maury