Here's a macro that will do it for you:
Sub DelZeros()

For X = 1 To 1
Dim redRng As Range
Set redRng = Range("A1:Z100")
For Each Cell In redRng
If Cell.Value < "" Then
Cell.Value = Cell.Value * 1000
End If
Next Cell
Next X

End Sub

Adjust the range to suit...

Regards,
Ryan

--
RyGuy


"Alden" wrote:

What do you mean by formula?

I need to multiploy a large spreadsheet with many values by 1000 with out
going into each cell. I would need to turn ea. cell from a value to a
formula.