Range("A1").formula= "=IF(AH6=" & Chr(34) & "Active" & Chr(34) & "," &
Chr(34) & chr(34) & ",AH6)"

If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

I need to have the following code enter via VBA into a cell:

=IF(AH6="Active","",AH6)

I tried using the following but received an error:

wsPh.Range("ah" & Emcnt).Formula = "=if(ah" & Emcnt & ="Active"","" & ,"ah"
& Emcnt"")"

Can someone help me out here? Also, is there somewhere where I can see the
actual code format such a statement?

Many thanks,