ExcelBanter - formula reference between worksheets

Tia

If you're willing to use a User Defined Function.......

Function PrevSheet(rg As Range)
n = Application.Caller.Parent.Index
If n = 1 Then
PrevSheet = CVErr(xlErrRef)
ElseIf TypeName(Sheets(n - 1)) = "Chart" Then
PrevSheet = CVErr(xlErrNA)
Else
PrevSheet = Sheets(n - 1).Range(rg.Address).Value
End If
End Function

Say you have 50 sheets, sheet1 through sheet50...........sheet names don't
matter.

Select second sheet and SHIFT + Click last sheet

In B1 enter =PrevSheet(A1)

Ungroup the sheets.

Each B1 will have the contents of the previous sheet's A1

Copy/paste the UDF above into a General Module in your workbook.

If not familiar with macros and VBA, visit David McRitchie's website on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + R to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste the above code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Gord Dibben Excel MVP

On Wed, 3 Jan 2007 11:48:02 -0800, Tia wrote:

I have a workbook where Tab1 is a "reference" page, with each row of data
containing an associate record. In Tab2 - Tab50, I need to "plug in" the
same piece of information on a form copied from the prior tab. Currently I
will copy Tab2 to Tab3 and incrementally change the cell refence by 1. Rather
than change this manually, is there a formula or macro that can do this for
me?