I would appreciate someone helping me with this.

I want to run this macro each time cell R1C8 exceeds 50.
I think I need a nested loop setup, but cannot make one
work.

}:-)

Sub reset()
Application.Goto Reference:="R4C5"
Selection.Copy
Application.Goto Reference:="R3C5"
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

try
if cells(1,8)50 then cells(3,5).value=cells(4,5).value

--
Don Guillett
SalesAid Software

"Paul" wrote in message
...
I would appreciate someone helping me with this.

I want to run this macro each time cell R1C8 exceeds 50.
I think I need a nested loop setup, but cannot make one
work.

}:-)

Sub reset()
Application.Goto Reference:="R4C5"
Selection.Copy
Application.Goto Reference:="R3C5"
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub