Dim objPg, Cntl, objFrm set objFrm = ThisEvent.object set objPg = objFrm.pages("page1") For each Ctrl in objPg.Controls ... Next