It will probably work if you change .Text into .Value



"Patrick Simonds" schreef in bericht
...
With my UserForm still open I want to run the code below. My problem is
that when the Called procedure is run it stops on the first line
"TextBox88.Text = Worksheets("Income").Range("J3").Text" and I get an
Object Required error. I know I could include this with the UserForm code,
but this is just one small snippet. I would need to replicate it about 60
times.

Private Sub TextBox80_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox80.Value "" Then
Worksheets("Income").Range("B3").Formula = "=" & TextBox80.Value
Else
Worksheets("Income").Range("B3").Formula = TextBox80.Value
End If
TextBox80.Text = Worksheets("Income").Range("B3").Text
Call Initialization.UserForm_Update

End Sub


Sub UserForm_Update()

'This macro intializes the Data Input UserForm

'Populates January

TextBox88.Text = Worksheets("Income").Range("J3").Text
TextBox90.Text = Worksheets("Income").Range("L3").Text

End Sub