VBA convert Activecell to number in spreadsheet

[Luluwai]

<!--StartFragment-->

[FONT=Verdana, Helvetica, Arial]I have the following line in a VBA macro which is to written into a cell in the workbook as a formulae:

ActiveCell.Offset(0, 1).Formula = "=LEFT((INDIRECT(""B""& ActiveCell.Row +1)),FIND("" "",(INDIRECT(""B""& ActiveCell.Row +1))&"" "")-1)"

How do I turn the ActiveCell.Row component into a number meaningful to a worksheet?[/FONT]​

<!--EndFragment-->

 

[mikerickson]

How about

ActiveCell.Offset(0,1).FormulaR1C1 = "=LEFT(R[1]C2, FIND("" "",R[1]C2)-1)"