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 <E1163DBB-0579-4D6F-A045-133966BC5948@microsoft.com>,
"lynk787" <lynk787@discussions.microsoft.com> 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