Hide formula in bar and calculate from macro

[sujittalukde]

I am using the following recorded macro

Sub Macro4()

'

'
    ActiveSheet.Unprotect Password:=""
    ActiveCell.FormulaR1C1 = "=R[-2]C+R[-1]C"
    Range("A4").Select
    ActiveSheet.Protect Password:=""
End Sub

When I am deleting the formula at A3 and then running the macro, the formula again appears on the cell A3.
Also it refilects 0 (Zero) on cell A3 if A2 and a3 doesnat contain values.

Can this be modified in such a way that:
1. It will not display the formula on the formula bar
2. Cell A3 will be blank (instead of 0 - Zero) if A1 and A2 is blank.

 

[Peter_SSs]

Maybe something like this?

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Test()
    ActiveSheet.Unprotect
    ActiveCell.FormulaR1C1 = "=IF(COUNT(R[-2]C:R[-1]C)=0,"""",R[-2]C+R[-1]C)"
    ActiveCell.Locked = <SPAN style="color:#00007F">True</SPAN>
    Selection.FormulaHidden = <SPAN style="color:#00007F">True</SPAN>
    ActiveSheet.Protect
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[sujittalukde]

Exactly............Thanks for the solution