I'm trying to add items to a listbox, but get a runtime error on the last item:
...
ListBox2.List(i, 0) = Sheets("Sheet2").Range("B" & r).Value
ListBox2.List(i, 1) = Sheets("Sheet2").Range("C" & r).Value
ListBox2.List(i, 2) = Sheets("Sheet2").Range("E" &...