How to find out how many tabs in the excel file using VBA

[veboit]

I am reading a Excel file using VBA code. I want to find out how many tab(sheets) in that file. then read particular cell in all tab. how can I programmatically find how many tab in that sheet?
thanks your help.

 

[Remou]

Do you mean something like:

Sub OpenExcel()
'References Microsoft Excel Object Library
Dim exlApp As New Excel.Application
Dim exlWks As Excel.Workbook
    exlApp.Visible = True
    Set exlWks = exlApp.Workbooks.Open _
        ("C:\Docs\Tek-tips.xls")
    Debug.Print exlWks.Worksheets.Count
    exlApp.Quit ' close the application
    Set exlWks = Nothing
    Set exlApp = Nothing
End Sub