Цикл по листам книги excel

[БлондинистаяРомашка]

нужно перебрать все листы в книге.

Set oExcel = CreateObject("Excel.Application")
Set oWorkBook = oExcel.Workbooks.Open(TextBox4.Text)
Set oSheet = oWorkBook.ActiveSheet()

CountSheets = oWorkBook.Sheets.Count
MsgBox CountSheets

For a = 1 To CountSheets
'чего-нибудь делаю

SheetName = ActiveWorkbook.Sheets(а).Name

Worksheets(SheetName).Activate
MsgBox SheetName

Next 'по листам

Set oWorkBook = oExcel.Workbooks.Close(TextBox4.Text)

ругается на строчку SheetName = ActiveWorkbook.Sheets(а).Name
что не правильно?

[KL]

Замени в этой строчке кириллическую "а" на латинскую "a" и всего делов