=" & 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 d
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
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.Ra
