You should be able to use something like this...Dim ctrl As ControlDim i As IntegerFor Each ctrl In ControlsIf Left(ctrl.Name, 5) = "Label" Thenctrl.Caption = NameArray(i)i = i + 1End IfNext