Copy a relative reference formula from one sheet to another.

Hello!

My simple problem is each new worksheet in certain cells needs to have the previous sheet identical cell value, plus an integer. I found a previous thread with a solution as follows. (and I quote)

You can use a user-defined function. In a module, enter:
Function Prevsheet(ref As Range)
Set sh = Sheets(Range(Application.Caller.Address).Parent.Index - 1)
Prevsheet = sh.Range(ref.Address)
End Function

In worksheet (except first):
If Sheet1!A1 has 1, then in Sheet2!A1, enter: =Prevsheet(A1)+1 and you'll see 2.
In Sheet3!A1, enter =Prevsheet(A1)+1 and you'll see 3 etc. End quote.

While this works for the first sheet, when I copy this sheet I get a circular formula warning in relation to this and the value is zeroed.

It obviously seems to work, but not quite. Any suggestion greatly appreciated. Craig