Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Right(Target.Value, 1) = UCase("M") And IsNumeric(Left(Target.Value, Len(Target.Value) - 1)) Then
Target.Value = Left(Target.Value, Len(Target.Value) - 1) * 1000000
End If
On Error GoTo 0
End Sub
You are not logged in, either login or create an account to post comments
posted by rockindata at 4:47 AM on November 29, 2012