Here is one way with VBA


For Each cell In ActiveSheet.UsedRange
If cell.Value < "" Then
cell.Value = Chr(34) & cell.Value & Chr(34)
End If
Next cell


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Mj" wrote in message
...
I have over 12,000 numbers in 2 columns that I need to add quotes to.
They
need to be before and after each number.