Transfer ActiveX objects and codes onto userform

Hello ABSTRAKTUS,

I don't want to dampen your hopes for an answer. This is a VBA project, not just one or two macros that you need help with. It will take someone quite a bit of time to review and understand your code. It will take even longer because many of the macros are recorded and will need to re-written to make them more flexible, easier to read and maintain. Does not mean that someone won't take it on though.

Is there anything specific you need help with?

What code/objects are you referring to?

What isn't working?

This is your workbook, can't you give a hint on what you want help with?

Is it with populating certain listboxes?

If it is, which listboxes and how should they be populated?

I did look at the workbook, and tried figuring out what was happening.

Just seemed to get a whole bunch of errors, especially when trying to move items from the big listbox.

I did figure out how you can populate the listboxs on the userform.

Private Sub UserForm_Initialize()


Dim awf As WorksheetFunction: Set awf = WorksheetFunction

    If awf.CountA(Range("drInput")) <> 0 Then
        ListBox1.List = _
        ThisWorkbook.Names("drInput").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist2")) <> 0 Then
        ListBox2.List = _
        ThisWorkbook.Names("drlist2").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist3")) <> 0 Then
        ListBox3.List = _
        ThisWorkbook.Names("drlist3").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist4")) <> 0 Then
        ListBox4.List = _
        ThisWorkbook.Names("drlist4").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist5")) <> 0 Then
        ListBox5.List = _
        ThisWorkbook.Names("drlist5").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist6")) <> 0 Then
        ListBox6.List = _
        ThisWorkbook.Names("drlist6").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist7")) <> 0 Then
        ListBox7.List = _
        ThisWorkbook.Names("drlist7").RefersToRange.Value
    End If

End Sub

Try this for putting items in the PennyStacks listbox (ListBox1).

Private Sub CommandButton1_Click()
Dim itemIndex As Integer
Dim lngSubItem As Long

    If ListBox1.ListCount = 0 Then Exit Sub

    ReDim blnSelected(0 To ListBox1.ListCount - 1) As Boolean

    With ListBox1
        For itemIndex = 0 To .ListCount - 1
            blnSelected(itemIndex) = .Selected(itemIndex)
        Next

        For itemIndex = .ListCount - 1 To 0 Step -1
            If blnSelected(itemIndex) Then
                ListBox2.AddItem .List(itemIndex)
                For lngSubItem = 1 To .ColumnCount - 1
                    ListBox2.List(ListBox2.ListCount - 1, lngSubItem) = _
                    .List(itemIndex, lngSubItem)
                Next
                .RemoveItem itemIndex
            End If
        Next itemIndex
    End With
End Sub

Why not give that a try yourself?