you mean like this?

Cell.Offset(1, 10).Formula = "=" & Cell.Offset(0, 10).Address(False,
False)


"Lost in Alabama" wrote:

Charile,

Thanks for the quick response. This works except I need the value contained
in the cell found in Column R to be one cell up in Column R.

Thanks,

Mary


"Charlie" wrote:

Dim Cell As Range

For Each Cell In Range("H:H")
If Cell.Value = "ZZZ Total" Then
Cell.Offset(1, 10).Formula = "=" & Cell.Offset(-1, 0).Address(False,
False)
End If
Next Cell


"Lost in Alabama" wrote:

I need a Do Loop to perform the following:

Select Column H
Find "ZZZ Total"
From that Active Cell, move 10 columns to the right and one cell down
Insert Formula "=Active Cell -1"
Loop until Column H cell value = ""

Thanks for the Help!

Mary