Take the value of the selected cell and multiply it by 1.5923566 and enter it..

I've tried to write a routine but it doesn't work. Here's what I've done so far...

Sub UpdateUSDollars()

ActiveCell = *1.5923566
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Any help received would be much appreciated.