Extracting from 3-d range to a column...

[galadiman]

I have a workbook with about 30 pages. I'd like to extract two cells from each of the 30 pages without manually typing (or clicking) each cell on each page. When I select all the sheets and click one of the cells, then try to 'paste special", it gives me an error.

Is there an easy way to convert a 3-d range to a 2-d range?

 

[ravishankar]

HI
Paste the following codes in the macro window ( Alt F11)

Sub extract()
for a = 2 to sheets.count
cells(a,1) = worksheets(a).name
cells(a,2) = worksheets(a).cells(1,1)
cells(a,3) = worksheets(a).cells(1,2)
next a
endsub

run the macro. It will extract data from A1 and B1 from all sheets into first sheet.
Ravi