Sub clr()
ActiveCell.Value = "=Right(CELL(" & Chr(34) & "FILENAME" & Chr(34) & ",A1),4)"
End Sub

--
Gary's Student
gsnu200704


"CLR" wrote:

Hi All.......
I am trying to put a formula in a cell and Excel keeps changing it on me......
I use the following line of code....
ActiveCell.FormulaR1C1 = "=Right(CELL(""FILENAME"",A1),4)"

and the formula in the cell turns out to be....
=RIGHT(CELL("FILENAME",'A1'),4)

which is wrong and gives me a #NAME? return.

Any help would be appreciated.

Vaya con Dios,
Chuck, CABGx3