Cell automatically recalculating data entered in that cell

[KarmaTheDog]

Hello all,
Is there a way I can get a cell to automatically multiply the data entered in that cell. Specifically, when someone enters a 1 into a cell, I'd like that cell to automatically multiply it by 0.48 and display it as 0.48. Is that possible or would I need an adjacent cell to do the calculation?

Thank you,

 

[cornflakegirl]

You could do it with VBA, eg:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then
    Application.EnableEvents = False
    Target.Value = Target.Value * 0.48
    Application.EnableEvents = True
End If

End Sub

(Right click on worksheet tab, click View Code, and paste in there.)

 

[KarmaTheDog]

Thanks for your help Cornflakegirl, I will thinking of you all day.

 

[cornflakegirl]

Way to freak a girl out!

[EDIT: Just got the reference. Sorry. Been a long day!]

 

[KarmaTheDog]

Thanks for your help Cornflakegirl, I will thinking of you all day.