Run Time Error 424

[josros60]

I am getting this message when I exit a userform,

Run Time Error 424, object required,

Code:

Private Sub CommandButton4_Click()
ProgressBar1.Visible = True
For i = 1 To 10000
ProgressBar1 = i * 100 / 10000
Next
ProgressBar1.Visible = False

Application.Visible = True
Unload Me
End Sub

Please help,
thanks

 

[kevlray]

Of course the first question is what kind of object is ProgressBar1. Second, not that it is necessary in most cases. Shouldn't you define i (i.e., Dim i As Integer)?

 

[kevlray]

I just looked up that error. It appears that may have to use the Set statement (i.e, Set ProgressBar1 = True).

 

[yupstrips]

Thanks for all of you share for views. i like you.

 

[josros60]

I realize what the problem is:

there's graphical bar that shows the percentage for saving/deleting/exiting the form but for some reason that frame doesn't appear in the userform.

any idea how solve it,

here it's the code that points when getting the error:

Private Sub CommandButton4_Click()
ProgressBar1.Visible = True
For i = 1 To 10000
ProgressBar1 = i * 100 / 10000
Next
ProgressBar1.Visible = False

Application.Visible = True
Unload Me

thanks again.