Yardımlarınız için teşekkürler makrolarda sorun çıkartıyor diye başka yöntemle yaptım.Sıra textini 0dan başlattım ileri diyince +1leyip ona göre seçtirtim geride -1ledim if else ilede listenin uzunluğuna göre ilerle yaptırdım.Makrolarıda Girildiğinde olayına koydum çözüldü.