Функция возвращает последнюю активную строку в последнем листе, а как сделать что бы получил из нужного мне листа, как сделать?

Эксель    = СоздатьОбъект("Excel.Application");   //создаем объект
ЛистЭксел = Эксель.Workbooks.Open(СокрЛП(ИФ)).Sheets(2); //Открываем файл
// Чтобы знать размер листа, т.е. количество строк и количество
// столбцов, мы активируем его последнюю непустую ячейку
Эксель.Cells.SpecialCells(11).Activate();
КоличествоСтрок = Эксель.ActiveCell.Row;

не в последнем, а в активном

nRows = Sheets(name).Cells.SpecialCells(11).Row

выражение Cells.SpecialCells(11).Row эквивалентно ActiveSheet.Cells.SpecialCells(11).Row  или ActiveWorkbook.ActiveSheet.Cells.SpecialCells(11).Row