Private Sub ComboBox2_Change() End Sub Private Sub UserForm_Initialize() With ComboBox1 .AddItem "INSP" .AddItem "PM" .AddItem "LOAD TEST" .AddItem "OR" End With With ComboBox2 .AddItem "ANNUAL" .AddItem "SEMI-ANNUAL" .AddItem "QUARTERLY" .AddItem "MONTHLY" .AddItem "ADHOC INSP/PM" .AddItem "OR" End With With ComboBox3 .AddItem "BEATON 19FT" .AddItem "BEATON 28FT" .AddItem "BEATON 32FT" .AddItem "RENTAL" .AddItem "CUSTOMER PROVIDED" .AddItem "NOT REQUIRED" End With With ListBox1 .AddItem "BRIDGE CRANE" .AddItem "GANTRY CRANE" .AddItem "JIB CRANE" .AddItem "MONORAIL CRANE" .AddItem "POWERED HOIST" .AddItem "CHAINFALL HOIST" .AddItem "POWERED HOIST" .AddItem "BELOW HOOK DEVICE" .AddItem "WINCH" End With With ListBox2 .AddItem "OVERHEAD DOOR" .AddItem "SPEED DOOR" .AddItem "COILING STEEL DOOR" .AddItem "IMPACT DOOR" End With With ListBox3 .AddItem "VEHICLE LIFT" .AddItem "ENGINE LIFT" .AddItem "MATERIAL LIFT" .AddItem "PALLET JACK" .AddItem "JACK STAND" .AddItem "MATERIAL LIFT TABLE" .AddItem "WALKIE STACKER" .AddItem "STRAPPING/BANDING MACHINE" End With With ListBox4 .AddItem "BOOM ATTACHMENT" End With With ListBox5 .AddItem "AUTO SCRUBBER" End With With ListBox6 .AddItem "DOCK LEVELER" End With With ListBox7 .AddItem "BAILER/COMPACTOR" End With With ListBox8 .AddItem "VRC" .AddItem "SELF RETRACTING LIFE LINE" .AddItem "TRIPOD" .AddItem "HORIZONTAL LIFE LINE" End With With ListBox9 .AddItem "TRUCK RESTRAINTS" End With With ListBox10 .AddItem "METAL MESH SLINGS" .AddItem "SYNTHETIC ROUND SLING" .AddItem "SYNTHETIC WEBBING SLING" .AddItem "WIRE ROPE SLING" .AddItem "ALLOY STEEL CHAIN SLING" End With End Sub Private Sub CommandButton1_Click() Dim I As Long Dim J As Long Dim msg As String Dim arrItems() As String ReDim arrItems(0 To ListBox1.ColumnCount - 1) For J = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(J) Then For I = 0 To ListBox1.ColumnCount - 1 arrItems(I) = ListBox1.Column(I, J) Next I msg = msg & Join(arrItems, ",") & vbCrLf & vbCrLf End If Next J MsgBox msg lstNo = ComboBox1.ListIndex lstNo2 = ComboBox2.ListIndex lstNo3 = ComboBox3.ListIndex lstNo4 = ListBox1.Selected(I) Unload Me End Sub