Sub AddQuotes()
Dim rng As Range
Dim cell As Range
On Error Resume Next
Set rng = ActiveSheet.Cells. _
SpecialCells(xlCellTypeConstants, xlNumbers)
If rng Is Nothing Then Exit Sub
For Each cell In rng
With cell
.Value = Chr(34) & .Value & Chr(34)
End With
Next
End Sub
---
HTH
Jason
Atlanta, GA
-----Original 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.
.
|