Run-time error code when initiating userform

[rizzo93]

I'm trying to retrieve a cell's value to display in a userform text field.

Private Sub UserForm_Initialize()
    Call GetData
End Sub


Private Sub GetData()

    Dim r As Long
    
    r = Cells(ActiveCell.Row, 78).Value
    PMField.Text = Worksheets("GhostData").Cells(r, 132).Value
    
End Sub

When I run the code above, I get "Run-time error: '424' Object required"


What does that mean and how do I fix it, please?

 

[Fluff]

Is all that code in the Userform Module?

 

[rizzo93]

Doh! I forgot I had this has a macro before to test things out.


But now that it is in the userform, I'm getting this error message:


"Application-defined or object-defined error"

 

[Fluff]

Could you post you code as it is now & indicate which line of code is causing the error

 

[rizzo93]

Sub PDCloseButton_Click()
    Unload Me
End Sub
Private Sub UserForm_Initialize()
    Call GetData
End Sub
Private Sub GetData()
    Dim r As Long
    
    r = Cells(ActiveCell.Row, 78).Value
    PMField.Text = Worksheets("GhostData").Cells(r, 132)
    
End Sub

I appreciate your help, Fluff.

 

[Fluff]

Do you have a control called PMField on the userform?

 

[rizzo93]

Yes, I do. It's one of many fields on the form that I wish to populate. I'm just proceeding slowly to make sure I've got the code right.

 

[Fluff]

What type of control is it?

 

[rizzo93]

A text box.

 

[Fluff]

If you type

Me.P

in the code do you get a drop down showing PMField as an option?