Convert Numbers to Text (To Append or Prefix Zero)

    Sub Convert_Numbers_to_Textual_Values()
        'This module will convert numbers to their respective textual values.
        'This is specially required when you want to append zeroes to numbers.
        Dim MyCell As Range
        For Each MyCell In Selection.Cells
            If IsNumeric(MyCell.Value) Then
                MyCell.Value = Str(MyCell.Value)
                MyCell.NumberFormat = "@"
            End If
        Next
    End Sub

Comments