Excel VBA Replace Whitespace format as number

Sub NumericFormatting()
'
' NumericFormatting Macro
'
' Keyboard Shortcut: Ctrl+Shift+N
'
    Dim cel As Range
    Dim selectedRange As Range

    Set selectedRange = Application.Selection

    For Each cel In selectedRange.Cells
    
        If Not cel.HasFormula Then
        
        
            cel.Value = Replace(cel.Text, " ", "")
            cel.Value = Replace(cel.Text, " ", "")
        
            cel.Value = CSng(cel.Value)
            
        End If
    
        cel.NumberFormat = "#,##0"
        
    
    Next cel
    
End Sub