I get absolutely no response...I have the following

Private Sub cmdEnter_Click()
frmEditCollect.Show
frmLookUp.Hide
End Sub

Private Sub UserForm_Initialize()
Dim i&
With ThisWorkbook.Sheets("Active Collection")
For i& = 3 To 300
cmbClient.AddItem .Cells(i&, 4).Value
Next i&
End With
cmbClient.ListIndex = 0
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdClient_DropButtonClick()

End Sub



then the next form...

Private Sub UserForm_Initialize()
Dim i As Long
i = frmLookUp.cmbClient.ListIndex
txtCompany.Text = Sheets("Active Collection").Cells(i + 3
5).Value
'Next
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub


any suggestions??

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