It normally isn't a problem, but if it is:

With Cells(rs, cl)
.NumberFormat = "General"
.Value = cdbl(Cells(7, 19).Value2)
End With


Assumes cells(7,19) contains a numeric value.
--
Regards,
Tom Ogilvy

"Larry Empey" wrote in message
...
In a macro I have the following code

Cells(rs, cl) = Cells(7, 19)

What can I change to this or add after it that will force the numbers
to be numeric instead of string?

Thank you
Larry