Loop through worksheet names

[Coldfire46]

Hi all,

I'm trying to write some code that loops through the names of the worksheets within a workbook and if the workbook title has the word 'Summary' in it, I want to do something further with the data in that worksheet. Will the following lines of code do that?

For Each ws In ActiveWorkbook.Worksheets
    If ws.Name Like "Summary*" Then
    'Do something
    End If
    
Next ws

 

[onlyadrafter]

Hello,

try

    For Each ws In ActiveWorkbook.Worksheets
        If Left(ws.Name, 7) = "Summary" Then
            'Do something
        End If
    Next ws

will your sheet names always begin with Summary or can there be text before the word summary, if so, you will need different code.

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> Replace(ws.Name, "Summary", "") Then
             'Do something
        End If
    Next ws