Public Sub RemoveScientificNotation()
    Dim i As Long
    Dim j As Long
    Dim maxRow As Long
    Dim maxColumn As Long
    maxRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    maxColumn = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
    For i = 1 To maxRow
        Debug.Print "Row: " & i
        For j = 1 To maxColumn
            Dim myRange As Range
            Set myRange = ActiveSheet.Cells(i, j)
            If IsNumeric(myRange.Value) And InStr(1, myRange.Value, "E") > 0 Then
                myRange.NumberFormat = "0.000000000000000000000"
            End If
        Next
    Next
End Sub