Function Scientific(s As String) As String Dim pos% pos = InStr(s, "E") If pos Then Scientific = Left(s, pos - 1) + "*10^" + Mid(s, pos + 1) Else Scientific = s End If End Function