Add Application.Volatile to your function...then it will
update every tiem the sheet recalcs

Sub Conditional_Formula_Entry()

With Range(ActiveCell, _
ActiveCell.Offset(0, 1).End(xlDown).Offset(0, -1))

.FormulaR1C1 = "=showrgb(RC[2])"

End With
End Sub

Function showrgb(x)
Application.Volatile
End Function
-----Original Message-----
Hi All,
I have a code which enters the formula in the different
cells based on
the colour index. My problem is the formula results are
not updated
automaticaly based on the new colour. If I run the macro
again, it is
updated and if I press F2 and Enter, it gets updated. My
code is as
below.

================
Sub Conditional_Formula_Entry()

Do While IsEmpty(ActiveCell.Offset(0, 1)) = False

ActiveCell.FormulaR1C1 = "=showrgb(RC[2])"

ActiveCell.Offset(1, 0).Select

Loop

End Sub
==================
NOte : ShowRGB is UDF and working fine in the same
workbook.

I need to update automatically just like sum or any
other formulas.

Can somebody point out my mistakes or any additions to
the codde?

Regards,
Shetty
.