Kodu kafadan yazdım mantık alttaki gibi olacak.
Sayfa isimlerini felan eklersiniz cells önüne artık
Mobilden zor oluyor ama mantık bu en basiti.
For i = 1 to 125
Listbox2.clear
İf cells(i,1).value= "Seçildi" then
Listbox2.additem cells(i,2).value
Next