"mangesh_yadav"
wrote in
message
news:mangesh_yadav.1qnlyd_1118815523.7323@excelfor um-nospam.com...

Enter the following code in the sheet module:

Private Sub Worksheet_Change(ByVal Target As Range)

If UCase(Right(Target.Value, 1)) = "M" Then
Target.Value = Left(Target.Value, Len(Target.Value) - 1) *
1000000
ElseIf UCase(Right(Target.Value, 1)) = "K" Then
Target.Value = Left(Target.Value, Len(Target.Value) - 1) *
1000
End If

End Sub


Mangesh


--
mangesh_yadav
--------------------------------------------------------------------
----
mangesh_yadav's Profile:
http://www.excelforum.com/member.php...o&userid=10470
View this thread:
http://www.excelforum.com/showthread...hreadid=379235


Very cool!

I would consider putting an error check in there, else if you enter,
say, "Mum" in a cell it will error out.

However, still very cool!

Alan.