Интересно, почему этот фрагмент кода возвращает ошибку несоответствия типов при инициализации пользовательской формы:
Private Sub UserForm_Initialize () Dim F as MSForms.Frame For Each F in Me.Controls F.Visible = False Next F End Sub
В поддержку моего комментария, что-то вроде этого
Dim c As Control For Each c In Me.Controls If TypeOf c Is Frame Then c.Visible = True End If Next c