Get a count of related worksheets

cruickshanks · #1 (**permalink**) 03-10-05, 05:38

Hi all,

Does anyone know how to get a count of all worksheets that have a common text element i.e. (GT11)?

This is in order to maintain an accurate count of pages in a specific section of a massive workbook.

Cheers.

DavidCoutts · #2 (**permalink**) 03-10-05, 12:05

how about this

Code:

Sub CountSpecific()
    Dim wks As Worksheet
    Dim i As Integer
    
    i = 0
    For Each wks In ThisWorkbook.Worksheets
        If wks.Name Like "Sheet*" Then
            i = i + 1
        End If
    Next wks
    
    MsgBox i
End Sub

for example

Internet Services

Web Development

Digital Marketing

Consumer Tech