Error during passing of UserForm to Sub

[SanShiney]

I was working on code optimization.
And came to a point, where i need to create a sub for repetitive procedures.
Below is the code:

Please Login or Register  to view this content.

Problem is that on line "Do Until frm.Visible = False" it gives me error "Run-time error '438': Object doesn't support this property or method"

Would be glad if you can help me.

[cytop]

The Visible property of a userform is marked as 'Restricted' in VBA. In other words, it's not available.

Why do you show the userform modelessly and then loop until it is hidden? Can't you just show it modally which will pause the code in the procedure until the userform is unloaded (Assuming you don't need access to the underlying workbook)?

[SanShiney]

The Visible property of a userform is marked as 'Restricted' in VBA. In other words, it's not available.

Why do you show the userform modelessly and then loop until it is hidden? Can't you just show it modally which will pause the code in the procedure until the userform is unloaded (Assuming you don't need access to the underlying workbook)?

I do refer to a workbook, while userform is open (to select ranges).
Which is why i need userform modelessly.

How can i specify in VBA if UserForm is unloaded or not?

[cytop]

Have a look at the RefEdit control (Right click the toolbox and select 'Additional Controls', Go find it in the list). This allows you to select ranges on the worksheet when the control has focus, even on a modal userform.

It can be buggy, though.