在VB操作Excel时，怎么遍历工作簿中的工作表

在VB操作Excel时，如何遍历工作簿中的工作表？
在VB操作Excel时，如何遍历工作簿中的工作表，并将每张工作表的名字显示出来？

        Set xlAppFilter = CreateObject("Excel.Application") '创建EXCEL应用类

        Set xlBookFilter = xlAppFilter.Workbooks.Open(strFileNameForFilter)

        xlBookFilter.Activate

        Dim i, Count As Integer

        Count = xlBookFilter.Sheets.Count

    

        For i = 1 To Count

‘以下这句是错的，应该怎样写才是对的呢？

            xlSheetsFilter = xlBookFilter.Sheets.Select(i)

            msgbox xlSheetsFilter.Name

            r = r + 1

            

        Next

        

        xlBookFilter.Close (True)

        Set xlSheetFilter = Nothing

        Set xlBookFilter = Nothing

        xlAppFilter.Quit '关闭EXCEL应用类

        Set xlAppFilter = Nothing '释放EXCEL应用类

------解决方案--------------------
错了，应该是：
set xlSheetsFilter = xlBookFilter.Sheets(i)
------解决方案--------------------
xlSheetsFilter = xlBookFilter.Sheets(i) 

应该是 Set xlSheetsFilter = xlBookFilter.Sheets(i)