I am using this code...




Code
-------------------

Private Sub NameBox_DropButtonClick()
Dim i As Integer, ii As Integer

With NameBox
If .ListIndex = 0 Then
For ii = 1 To 16
Controls("TextBox" & ii).Value = Format(Cells(Rng(.ListIndex + 1).Row, ii + 1), "00000")
Next
End If
End With
End Sub

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




I have the formatting set for 5 numbers and if not to add zero'
however at TextBox14 I have a number that I only want 4 for. Is ther
anyway I can modify what I have above so that only TextBox14 is allowe
to have 4 and the rest are forced to 5

--
Message posted from http://www.ExcelForum.com