VBA to sum activeCell plus input box value

[JJS11]

I am new to VBA and am not sure how to write this correct macro.

I want to add the sum of an existing value (the active cell) with the amount I want to enter through a input box. What I have so far is:

Sub AddValue()
Dim myRebuy As Variant


ActiveCell.Value = ActiveCell.Value + myRebuy = InputBox("Rebuy Amount?")
End Sub

I know this is wrong though and not sure what needs to be changed and or added.
ANY HELP IS APPRECIATED!

 

[Stridhan]

try

Sub addValue()

Dim reBuy As Double
reBuy = InputBox("Rebuy Amount?")
ActiveCell.Value = ActiveCell.Value + reBuy

End Sub

 

[JJS11]

try

Sub addValue()

Dim reBuy As Double
reBuy = InputBox("Rebuy Amount?")
ActiveCell.Value = ActiveCell.Value + reBuy

End Sub

Works perfectly!

Thanks a lot!

 

[Stridhan]

You're welcome