Can't be done with formatting as E will always display 1 digit.

This ain't foirmatting either, but maybe it's okay

'-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'-----------------------------------------------------------------
Const WS_RANGE As String = "A1"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
.Value = Format(.Value / 100000, "0.00") & "E5"
.NumberFormat = "@"
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"carno" wrote in
message ...

Nice reply from Gary''s Student. It works. But then we have to have
another cell for that. It is not formatting.


--
carno
------------------------------------------------------------------------
carno's Profile:
http://www.excelforum.com/member.php...o&userid=33633
View this thread: http://www.excelforum.com/showthread...hreadid=534054