I solved my own problem.
I don't know how efficient it is but this is doing what I need wit
fewer lines of code.

Thanks to anyone who looked and tried to find a solution.

Tim

------------------------------------------------------------------------------------------------------



Private Sub UserForm_Initialize()
'load sheet data

Call PopulateObjArrays
Dim i As Integer
Dim strName As String
Dim db As String
Dim cell As String
Dim ctl As Control

'load ID's
For i = 0 To DIM_ROW_COUNT - 1 Step 1
strName = "lbl" + DimArray(i, 0) + "ID"
Set ctl = AllInputs.Controls.Item(strName)
db = DimArray(i, 1)
cell = "A" + DimArray(i, 2)
Call modFormUpdate.sendCellToLabel(ctl, db, cell)
Next i

End Sub

--------------------------------------------------------------------------------------------------

'Takes the contents of a Cell and places in in the designated Label
Function sendCellToLabel(ByRef Lbl As Control,
ByRef SheetName As String,
ByRef CellName As String)
Lbl.Caption = Worksheets(SheetName).Range(CellName)
End Functio

--
tfran
-----------------------------------------------------------------------
tfrank's Profile: http://www.excelforum.com/member.php...fo&userid=1588
View this thread: http://www.excelforum.com/showthread.php?threadid=27372