Evagrius Ponticus
Well-known Member
- Joined
- May 24, 2007
- Messages
- 1,467
I don't udnerstand why this doesn't work - it's making want to take a hammer to my monitor It freaks out in the .controls.add line . .
Code:
Private Sub UserForm_activate()
If LCase(InputBox("Password")) = "MadFrog" Then
Dim i As Integer
For i = 1 To Sheets.Count
Me.MultiPage1.Pages.Add , Sheets(i).Name
Me.MultiPage1.Pages(i).Controls.Add "Forms.checkbox.1"
Next i
Else
Unload Me
End If
End Sub