'You didn't say What cell / column / row this has to be in.
'I used an the inputbox's value * 12 and put the results in the
'activecell
Sub monthlyDollarAmount()
amount = InputBox("Enter monthly amonut.")
If Not IsNumeric(amount) Then Exit Sub
ActiveCell.Value = amount * 12
End Sub

"Jeremy McClung" wrote:

I need to enter a monthly dollar amount and have the amount multiply by 12
and display in the same cell. I cannot use a formula due to the circular
reference. Any help writing a macro that would do the calculation for me?