Your code worked ok for me.

What line caused the error?

(I don't have a guess, but maybe someone else will.)

RyanH wrote:

I am scattered today. Yesterday this code was working fine and today it is
not. I am getting a Type MisMatch Error indicated below, why?

Private Sub cboIllumination_Change()

Dim pg As Page

'disables all three pages
For Each pg In mpgIllumination.Pages
pg.Enabled = False
Next pg

End Sub

--
Cheers,
Ryan

--

Dave Peterson