How to save column values contains decimal,zero,blank into same datatype

Help Something Else
4

@_nithish,

Try this one. This works but will be time consuming as it’s working cell by cell.

Sub IgnoreNumberStoredAsTextErrors()
    Dim ws As Worksheet
    Dim cell As Range
    
    For Each ws In ThisWorkbook.Worksheets
        For Each cell In ws.UsedRange
            If cell.PrefixCharacter <> "" Then
                cell.Errors.Item(xlNumberAsText).Ignore = True
            End If
        Next cell
    Next ws
End Sub