Поиск по книгам Excel

[DenAnShi]

Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[1];
Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[2];
Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[3];
Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[4];
Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[5];

Есть вот кусок кода, можно ли сделать так, чтобы можно было не прописывать страницы, а использовать что то более функциональное. А то поиск идет по разным файлам и почти везде разное количество страниц.

Заранее Благодарен!