Convert Numbers appearing as Text to their Values (Number Format) (Remove Green Sign)

    Sub Convert_Textual_Numbers_to_Values()
        'This module will convert numbers appearing as text (Green marked) to their respective values in Number format.
        Dim MyCell As Range
        For Each MyCell In Selection.Cells
            MyCell.NumberFormat = "0"
            MyCell.Value = Val(Trim(MyCell.Value))
        Next
    End Sub