How to Change Scientific Notation to Number format in MS Excel

---

---

VBA Code:

Sub Transform()
    Dim Cell As Range
    For Each Cell In Selection
     If IsNumeric(Cell) And Len(Cell) > 12 Then
         Cell.NumberFormat = "0"
      End If
    Next Cell
End Sub

---