Concert formula to code VBA

[smeskinaoui]

Hello,
can someone help me convert this formula to VBA code:
=LOWER(SUBSTITUTE(LEFT(A1,FIND(" ",A1)+9999)," ",".")&"@XYZcompany.com")
I have a cell that has a full name (first name space last name) that I will convert to an email.
Thank you,

 

[Z51]

ActiveCell.Formula = "=LOWER(SUBSTITUTE(LEFT(A1,FIND("" "",A1)+9999),"" "",""."")&""@XYZcompany.com"")"

You can replace "ActiveCell" with an actual cell reference if you want, e.g. Range("B1").

 

[smeskinaoui]

works like a shame! Thank you.

 

[Z51]

I think you mean "works like a charm"?