Вы же видите, что не выполняется условие:
Если Сер = Серии("1:10") Тогда
Потому что в функции Серии(Строк) он не находит серию с точным наименованием "1:10"
Проверяйте наименование