Sub FormulaOffset()
' cell AB151 has formula =BD355
' cell AB152 needs formula =BC358 [BD355].offset(3,-1)
Dim a As String
Dim b As String
Dim c As String
a = [ab151].Formula
b = Right(a, Len(a) - 1)
c = Range(b).Offset(3, -1).Address(0, 0)
Range("AB152").Formula = "=" & c
End Sub

HTH,
--
Data Hog


"FSt1" wrote:

hi
thanks for the reply but i was looking more of a vb solution which is why i
posted under programing.

regards
FSt1

"ryguy7272" wrote:

Not sure, but maybe this;
=INDIRECT("bd355")+3


--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"FSt1" wrote:

sorry of the double post. last was a finger glitch.
if one had a formula in AB151 and the formula was =BD355, how would you add
3 to the cell reference in the formula and place formula =BC358 in range AB152

regards
FSt1