how to put " in a cell thru macro

[Tang]

i want to put "=if(a1="","",a1)" in cell B1 thru macro, but get error
message.

the macro line is as follow:
range("B1").value = "=if(a1="","",a1)"

hope someone can give your guidance.

 

[Frank Kabel]

Hi
try
range("B1").formula= "=if(a1="""","""",a1)"