Userforms and cell updates in Excel 2010

I have the following code and keep getting "run-time error '9'. what am i doing wrong?

Private Sub Userform_Activate()

Dim sb As Range
Dim m As Range

Set sb = Worksheets("Sheet1").Range("C31")
Set m = Worksheets("Sheet1").Range("C30")
txtSnowball.Text = sb.Value
txtMonthly.Text = m.Value

End Sub
Private Sub txtSnowball_Exit(ByVal Cancel As MSForms.ReturnBoolean)

sb.Value = txtSnowball.Text

End Sub
Private Sub txtMonthly_Exit(ByVal Cancel As MSForms.ReturnBoolean)

m.Value = txtMonthly.Text

End Sub

That's because once the activate event is over, the program loses the value of SB and M.

Then, in the subsequent Exit events, you're trying to refer to a object that hasn't been declared or defined.

It's call the scope of variables and procedures. It's worth a read.

However, the code can be simplified and the problems of scope are resolved.

Private Sub Userform_Activate()

txtSnowball.Text = Worksheets("Sheet1").Range("C31")
txtMonthly.Text = Worksheets("Sheet1").Range("C30")

End Sub
Private Sub txtSnowball_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Worksheets("Sheet1").Range("C31") = txtSnowball.Text

End Sub
Private Sub txtMonthly_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Worksheets("Sheet1").Range("C30") = txtMonthly.Text

End Sub

I just ran a sample on my machine and it worked.

In that case, the worksheet name must be wrong.

When you stuff the textbox, you have to use the Format Function.

txtSnowball.Text = Format(Worksheets("Sheet1").Range("C31"), "$0.00")

And when you push it back, you will need to use

Worksheets("Sheet1").Range("C31") = Replace(txtSnowball.Text, "$", "")

to strip out the currency sign.

Textboxes are just that. Text (or strings) and you have to treat them accordingly.