Defined cell and formula in VBA

[theteacher9999]

Hi,

Here is part of my code:

mycell = ActiveCell.AddressLocal(False, False) 'it is O2
Cells(1, Range("A1").End(xlToRight).Column + 1).Offset(1, 0).Activate
Selection.Formula = "=IF(mycell=""Blue"",""yes"",""no"")"

What I get in the selected cell is: #NAME?

When I type the below all is fine but I don't want to enter a specific cell here becasue the intial ActiveCell may vary.

Selection.Formula = "=IF(O2=""Blue"",""yes"",""no"")"

Do you know how to correct it?

 

[KenU]

I believe you want

Selection.Formula = "=IF(" & mycell & "=""Blue"",""yes"",""no"")"

Hope that helps.

Regards,
Ken

 

[theteacher9999]

I believe you want

Selection.Formula = "=IF(" & mycell & "=""Blue"",""yes"",""no"")"

Hope that helps.

Regards,
Ken

Correct. Thanks KenU!