Create a macro that appends every record in a column

[tuccokeith]

Hello,

I want to create a macro that adds the "'" character to every numeric value in a column b1:b1000.

For example

b1 = 2000(as a numeric value)

I want the macro to change the cell value to b1 = "'2000"

How can this be done?

Thanks

 

[Zathras]

Here's a quick and dirty macro to do what you want:
[blue]

Sub ConvertToText()
Dim c As Range
  For Each c In Range("B1:B1000")
    If Not IsEmpty(c) Then
      c.Value = "'" & c.Text
    End If
  Next c
End Sub

[/color]