Selecting Specific Sheets

[pazzam]

Hello,

I have just been sent a timetable for the year. Each day of the year has its own sheet in the Excel document. However, as I am part-time, the only sheets that apply to me are those which say that the top, PT WEEKEND.
ITS SO ANNOYING.

Does anyone know if it would be possible to perform a search on all the sheets, select all those which contain/ do not contain PT WEEKEND and copy/ delete those selected? Then I will be left with the correct sheets.

Cheers.

Paz

 

[Joe4]

Welcome to the Board!

Here is a suggestion. You could create a macro that would any non "PT WEEKEND" sheet. We could help you od that if you can tell use where this "PT WEEKEND" resides.

Is it part of the worksheet tab name?
Or is it in a certain cell on every page?
If so, which cell, and is there ever anything else along with "PT WEEKEND" in this cell (i.e. a date)?

 

[pazzam]

Hey,

Thanks for the reply. Its always in A3 and always says "PT WEEKEND: Number"

The number depends on which week it is.

Cheers.

 

[pazzam]

If it isnt a sheet that contains "PT WEEKEND:" then the whole calendar table is shifted up one.. so its not blank.

 

[Joe4]

OK, here is some code that will hide those sheets that do not have that in cell A3:

Sub MyHideSheets()
 
    Dim ws As Worksheet
 
    For Each ws In ActiveWorkbook.Worksheets
        If Left(ws.Range("A3"), 10) = "PT WEEKEND" Then
            ws.Visible = True
        Else
            ws.Visible = False
        End If
    Next ws
 
End Sub

 

[pazzam]

Thanks very much! That works perfectly!