Hi,
Try this code in a normal module, and run it while the report sheet is active.
Sub GetSheetInfo()
A = ActiveSheet.Name
B = 2
For Each s In Sheets
If s.Name <> A Then
Cells(B, 1) = s.Name
Cells(B, 2) = s.Range("A4")
Cells(B, 3) = s.Range("B30")
Cells(B, 4) = s.Range("C30")
Cells(B, 5) = s.Range("D30")
Cells(B, 6) = s.Range("E30")
B = B + 1
End If
Next s
End Sub
Regards - Dave.
> Date: Wed, 28 Apr 2010 21:24:29 -0700
> Subject: $$Excel-Macros$$ Macro to display specific cells from all sheets
> onto a new sheet
> From: propagan...@gmail.com
> To: excel-macros@googlegroups.com
>
> Hi all,
>
> I need help creating a macro that will scan through all sheets (the
> number of sheets may vary - but, for example, the first one has 51
> sheets), then find 5 specific values on each sheet (pretend they are
> always in cells A4, B30, C30, D30 and E30) and then display those five
> values in a new row on the new sheet to create a table.
>
> That table will end up having as many rows as there are sheets in the
> workbook. It would probably be nice to have the name of the worksheet
> it came from in the first column, followed by the 5 values in the next
> 5 columns.
>
> If you would like me to upload a demo spreadsheet, please let me know
> how to do so.
>
> Thanks,
> Amanda
>
> --
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> HELP US GROW !!
>
> We reach over 6,800 subscribers worldwide and receive many nice notes about
> the learning and support from the group.Let friends and co-workers know they
> can subscribe to group at
> http://groups.google.com/group/excel-macros/subscribe
_________________________________________________________________
New, Used, Demo, Dealer or Private? Find it at CarPoint.com.au
http://clk.atdmt.com/NMN/go/206222968/direct/01/
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
