Jim,

Perhaps your cell was formatted for text. Try

Do While RowCount < 24
With Tbook.Worksheets("Data1").Cells(i, j)
.NumberFormat = "General"
.FormulaR1C1 = "=VLOOKUP(RC[-1],Library!R2C[-2]:R192C[1],3,FALSE)"
End with
RowCount = RowCount + 1
j = j + 1
Loop

HTH,
Bernie
MS Excel MVP

"Jim73" wrote in message
...
Hi,

I have a problem that I cant seem to find a solution to.

-----------

Do While rowcount < 24

Tbook.Worksheets("Data1").Cells(i, j) =
"=VLOOKUP(RC[-1],Library!R2C[-2]:R192C _ [1],3,FALSE)"
rowount = rowcount + 1
j = j + 1
Loop

-----------

In the first iteration/cell the formula:
=VLOOKUP(B21,Library!A$2:D$192,3,FALSE)
comes up in the cell. (This is the way I want it).

For my next iteration/cell following shows up:
=VLOOKUP(RC[-1],Library!R2C[-2]:R192C[1],3,FALSE)
i.e. it does not change the formula like it should. It fills the cell like
it was text.

Does anyone a solution to this?

Thanx in advance
Jim