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

Try
UserForm1.TextBox88.text = Worksheets("Income").Range("J3").Text
Make sure to reference the userform.

Rick

"Patrick Simonds" wrote in message
...
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 TextBox8
_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

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

Assume the Userform is Userform1

Sub UserForm_Update()

'This macro intializes the Data Input UserForm

'Populates January

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

End Sub

--
Regards,
Tom Ogilvy


"Patrick Simonds" wrote in message
...
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