ادراج البيانات فى الليست بوكس

ادراج بيانات من ورقة العمل الى الليست بوكس

Function ShowInListBox()
Listbox1.Clear
Listbox1.ColumnCount = 7
Listbox1.ColumnWidths = "100,100,100,100,100,100,100"
Sheets("Sheetdb").Activate
Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Listbox1.List = Range("A1:G" & lastrow).Value
End Function