Sub convertToNonNumbers()
    Application.Calculation = xlCalculationManual
    For Each cell In Selection.SpecialCells(xlCellTypeConstants)
        x = CStr(cell.Value)
        cell.ClearContents
        cell.NumberFormat = "@"
        cell.Value = x
    Next
    Application.Calculation = xlCalculationAutomatic
End Sub