VBA - Search Worksheet Tabs by partial name

[rmfrase]

I have a spreadsheet that is sent to me monthly. here is the issue I'm facing:

Each workbook contains multiple tabs.
The position of those tabs may be different positions when received.
The part of each tab's naming convention does not change, while the rest of the tabs' name contains random information.

My question:
Is it possible to to search/find the tab based on part of the name?

example: Name on tab:
Pivot Table Data June 2011

Search for: Pivot


Thanks for your help.
-Robert

 

[VoG]

Try like this

Sub test4()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name Like "Pivot*" Then
        ws.Select
        Exit For
    End If
Next ws
End Sub

 

[rmfrase]

It worked perfectly!!! Thank you very much.

 

[holycowbanana]

If I wanted to create a loop, where if it's not "pivot", it searches another tab name until if finds the right one and then ends loop?

Sub test4()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name Like "Pivot*" Then
ws.Select
Exit For
End If
Next ws
End Sub