of course i meant

dim pg as control

susan


On Jul 1, 2:52*pm, 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