Hi, Try this code:
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.Name & "!A4"
Cells(B, 3) = "=" & s.Name & "!B30"
Cells(B, 4) = "=" & s.Name & "!C30"
Cells(B, 5) = "=" & s.Name & "!D30"
Cells(B, 6) = "=" & s.Name & "!E30"
B = B + 1
End If
Next s
End Sub
Regards - Dave.
> Date: Mon, 3 May 2010 18:51:55 -0700
> Subject: Re: $$Excel-Macros$$ Macro to display specific cells from all sheets
> onto a new sheet
> From: propagan...@gmail.com
> To: excel-macros@googlegroups.com
>
> Hi Dave,
>
> Thank you so much - this is great.
>
> Is there any way of having the output on the new page be a cell
> reference rather than the value? That way if someone changes the value
> on a sheet it will update automatically? The people I am giving this
> to will not remember to delete the sheet and run the macro again if
> they change a value.
>
> Thanks,
> Amanda
>
> On Apr 29, 11:18 pm, Dave Bonallack <davebonall...@hotmail.com> wrote:
> > 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 athttp://www.excel-macros.blogspot.com
> > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> > > 5. Excel Tips and Tricks athttp://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
> > > athttp://groups.google.com/group/excel-macros/subscribe
> >
> > _________________________________________________________________
> > New, Used, Demo, Dealer or Private? Find it at
> > CarPoint.com.auhttp://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 athttp://www.excel-macros.blogspot.com
> > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> > 5. Excel Tips and Tricks athttp://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
> > athttp://groups.google.com/group/excel-macros/subscribe
>
> --
> ----------------------------------------------------------------------------------
> 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
_________________________________________________________________
Need a new place to live? Find it on Domain.com.au
http://clk.atdmt.com/NMN/go/157631292/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
