Code Refuses To Work . .

[Evagrius Ponticus]

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 . .

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

 

[Norie]

Eh, is that a capital M and F I see in the password?

 

[Evagrius Ponticus]

HAHHAHA - pardon me Norie - those serve only as subliminal evidence of my frustration

 

[Evagrius Ponticus]

Hmmm, turns out that the index for the first page in the Multipage is 0. But in an Excel workbook the first sheet has an index of 1. That's just confusing.

 

[Norie]

Slightly confusing, yes.

But they are completely different objects after all.

And I think you'll find a few other things that are zero based.

 

[Evagrius Ponticus]

Yes, indeed, my temper for one

It took me half an hour to figure this one out.