ws.Name Like - Isn't working?

[BenGee]

Hi

Could someone help me with these 2 lines in red;

    Dim ws As Worksheet
    
    If CheckBox1 = True Then
       [COLOR=#FF0000] If ws.Name Like "*3CT*" Then[/COLOR]
            ws.Visible = xlSheetVisible
        End If
        
    ElseIf CheckBox2 = True Then
       [COLOR=#FF0000] If ws.Name Like "*3CT*" Then[/COLOR]
            ws.Visible = xlSheetHidden
        End If
        
    ElseIf CheckBox3 = True Then
        For Each ws In Sheets
            ws.Visible = xlSheetVisible
        Next
    End If
    
    Unload Me

For the love of me I can't work it out.

Thank you in advance

 

[JonXL]

Is there somewhere in your code where you set the ws?

If not, that would seem to be the problem.

 

[BenGee]

Thanks for replying JonXL.

Forgive my lack of knowledge. But, I thought;

Dim ws As Worksheets

set the ws as the worksheets?

Thank you

 

[Scott T]

That declares a variable as a worksheet but does not tell what that variable is equal to.

This will make ws = to sheet1

Dim ws As Worksheet

Set ws = Sheets("Sheet1")

 

[BenGee]

Ah ok, thanks Scott T!

Does that mean I'll need to set every worksheet (e.g. Sheets("Sheet1","Sheet2")) as my code is checking every worksheet name for the word "3CT"?

 

[dreid1011]

What happens if you modify the code like this:

For Each ws in Sheets
     If CheckBox1 = True Then
             If ws.Name Like "*3CT*" Then
                 ws.Visible = xlSheetVisible
            End If
        
    ElseIf CheckBox2 = True Then
        If ws.Name Like "*3CT*" Then
            ws.Visible = xlSheetHidden
        End If
        
    ElseIf CheckBox3 = True Then
        ws.Visible = xlSheetVisible
    End If
Next

 

[BenGee]

Sorry for the late reply! This worked wonderfully dreid1011. Thank you

 

[dreid1011]

You're welcome.