Tks Don, I sort it out now.

"Don Guillett" wrote:

What I sent was ONE line sub meant to stand alone and not as part of another
macro. If desired, send your workbook to my address below along with
desires, a snippet of this msg in an inserted sheet and before/after
examples.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Seeker" wrote in message
...
Hi Don,
Tks for your reply. However, when I placed following

Sub placeformula()
Range("F3").Formula = "IF(AND(............)" (had changed all " " to "" ""
for textwithin formula)
End Sub

It prompt me "must be an End Sub" at line above Sub placeformula() ???

"Don Guillett" wrote:

The key is to use "" "" instead of " "

Sub placeformula()'one line
Range("f3").Formula =
"=IF(AND(F2<""AA"",UPPER(F12)<""BB""),VLOOKUP(F9 &"".""&G10,Records!C2:R65536,6),IF(OR(AND(F2<""AA "",UPPER(F12)=""BB""),AND(F2=""AA"",UPPER(F12)=""B B"")),""N/A"",""writesomething""))"

End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Seeker" wrote in message
...
I have following formula in a cell which shows output depends on other
cells
conditions, it also prompt users to write data in same cell thus this
formula
will be erased, I am looking for a macro which can place this formula
back
into cell after user finished every single input.

=IF(AND(F2<"AA",UPPER(F12)<"BB"),VLOOKUP(F9&"."& G10,Records!C2:R65536,6),IF(OR(AND(F2<"AA",UPPER( F12)="BB"),AND(F2="AA",UPPER(F12)="BB")),"N/A","write
something"))

Tks