Multiple combo box usage

[wstring]

I'm have trouble with the following items on my form.

1.) Combo box (cmbTicket) will not fill out my form.
2.) I'm also trying to use a module to create a date time stamp with each "New" (cmdNew) ticket as well as an "application. user name" (computer name).
3.) I have three "fruit" combo boxes that I would like to be active when I create a "New" (cmdNew) ticket that pulls from the "DDM" worksheet.

[SamT]

I Added the named Range " 'PTSD'!TicketNumber ". Then I changed some few of your subs, basically changing the lines "LoadPTSDataList" to LoadcmbTicket. Then I added the UserForm's Initiate sub and called the new Function LoadcmbTicket.

If you like that dynamic named range and want to use it on several sheets. Just edit the columns letters. If you (do) have the same columnHeads on different sheets, but want to keep the Names the same on several sheets, in the Names In Workbook box, prefix the Range Name with 'SheetName'! Single quotes highly recommended This is a Sheet Specific name. Look in the Names on the PTSData Sheet, then look at the names on another sheet.

[wstring]

Fruit Ticket_SamT1.xlsm

Sam,

Thank you, I have three other issues I haven't been able to resolve

1.) Date Time Stamp will not work when I start a "New" Ticket
2.) I can add duplicate records
3.) The Fruit1 - Fruit2 - Fruit3 drop menus won't work when I start a "New" Ticket

[SamT]

1.) Me.txbDateReceived = Format(Now, "mm/dd/yyyy")
2.) If ws.Cells(irow, 1).Value <> "" Then MsgBox "Duplicate Record"
3.) Me.cmbFruit1.RowSource =Sheets("DDM").Range("E1")

[wstring]

SamT,

So if I use the code in item 3.) for Fruit2 and Fruit 3 I should get the same results?

[wstring]

SamT,

I tried your suggestions and I'm now getting an error on opening the form, I don't get it?

Fruit Ticket.xlsm

[SamT]

Look for the "<<<<<<<<<<<<<<<<<<<" Comments