troubleshooting Question

Access VBA to Count Worksheets in a Workbook

Avatar of Gary Croxford
Gary CroxfordFlag for United Kingdom of Great Britain and Northern Ireland asked on
Microsoft AccessVBA
3 Comments1 Solution589 ViewsLast Modified:
Thank you for looking at my question,

I need to count the number of worksheets in an Excel workbook.

the code I have started with is:
        If intFileSelectedFlag > 0 Then
            Dim objXL As Object
            Dim objWB As Object
            Dim objWS As Object
            Set objXL = CreateObject("Excel.Application")
            Set objWB = objXL.workbooks.Open(strSource, True, True)
            Set objWS = objXL.worksheet
            For Each objWS In objWB.worksheets
                lngSheetCount = lngSheetCount + 1
            MsgBox "No. Sheets: " & lngSheetCount, vbOKOnly, "Source: " & strSource
        End If

The code falls over at "Set objWS = objXL.worksheet" with run-time error: 438 Object doesn't support this property or method"

How do I do this please?
Join our community to see this answer!
Unlock 1 Answer and 3 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 3 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros