BUY EXCEL BOOKS ONLINE: 1. VBA & Macros      2. VBA for Modelers      3. Excel 2013 VBA and Macros     
4. Excel VBA for Dummies      5. Excel with VBA & .NET      6. Mastering VBA      7. Excel 2013 Programming

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