One way:

Put this in your worksheet code module (right-click the worksheet tab
and choose View Code):

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "A1" Then
Application.EnableEvents = False
.Value = .Value * 1000#
Application.EnableEvents = True
End If
End Sub

In article ,
"lynk787" wrote:

A simple calculation of...the value entered multiplied by a number..
eg. Cell A1, put in value .5, it then multiplies by 1000 and gives 500 in
cell A1

please advise