Userforms and cell updates in Excel 2010

[djelliston]

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