2 Move Data Between Listboxes Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Private Sub UserForm_Initialize() ListBox1.RowSource = "A1:A" & Cells(65536, 1).End(xlUp).Row ListBox1.ListStyle = fmListStyleOption ListBox1.MultiSelect = fmMultiSelectMulti End Sub ' Private Sub CommandButton1_Click() ListBox2.Clear For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i) End If Next End Sub Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 2 Move data between listboxes 2 2 Move data between listboxes 3 excel operators hk 4 get information from the registry 5 dialog box without userform 6 sort data by name order 7 sort data by name order 8 Hide or show pivot table fields according to a specific criterion 9 identifying unique (single) data entries 10 remove sheet / page protections 11 a macro with rows and columns 12 Adds sheet / pages based on data in column A and writes data up to column D 13 Data between cells a1: af12 flashes 14 Data between cells a1: af12 flashes 15 if you enter data between a1-a20 16 Automatically insert other data between sequential data in excel 17 a3: prints data between cells f15 18 Adds a new sheet / page named month and year, together with the data a1: a5 19 b3e enter data insert web sheet / page as sheet / page 20 I want to throw the full cells in row with text between a1: an1000 into listbox