calculation and forms

[alexanderd]

i have a form in which the following is used
'Private Sub tbxSellPrice1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

'tbxSellPrice1.Value = tbxNetCost1.Value * 2
'End Sub
i would like to be able to replace "2" with a value stored in say worksheet5 cell A2
can any one suggest how this can be achieved

[RHelliwell]

    Sheets("Sheet5").Select
    Range("A2").Select
    a = ActiveCell.Value

then replace the 2 with a

[alexanderd]

works ok for me ,
thank you for a quick responce