Run-time error '13': Type mismatch

[Pookiemeister]

Sub week_num()

    Dim ws As Worksheets, ws1 as Worksheets
    Dim wb as Workbook

    Set wb = ThisWorkbook
    
    WeekNum = Application.WorksheetFunction.RoundUp(Day(Now()) / 7, 0)
    
        Select Case WeekNum

            Case 1
                Set ws = wb.Worksheets("WO Week 1")[B] 'First occurrence happens here[/B]
                ws.Unprotect
                Set ws1 = wb.Worksheets("Past Due Week 1")
                ws1.Unprotect

            Case 2
                Set ws = wb.Worksheets("Past Due Week 2")
                ws.Unprotect
                Set ws1 = wb.Worksheets("WO Week 2")
                ws1.Unprotect
                
                
            Case 3
                Set ws = wb.Worksheets("Past Due Week 3")
                ws.Unprotect
                Set ws1 = wb.Worksheets("WO Week 3")
                ws1.Unprotect
                
                
                
            Case 4
                Set ws = wb.Worksheets("Past Due Week 4")
                ws.Unprotect
                Set ws1 = wb.Worksheets("WO Week 4")
                ws1.Unprotect
                
                
                
            Case 5
                Set ws = wb.Worksheets("Past Due Week 5")
                ws.Unprotect
                Set ws1 = wb.Worksheets("WO Week 5")
                ws1.Unprotect
                        
            Case Else
                ws.Protect
                ws1.Protect
                
        End Select
        
    Exit Sub

End Sub

 

[MARK858]

WorkSheet not WorkSheets

Dim ws As Worksheets, ws1 as Worksheets

 

[Pookiemeister]

Is that because you can only select only one sheet at a time?

 

[MARK858]

It is because it is an object (you can select multiple sheets at a time)

 

[Cubist]

One other potential issue is Case Else where you're calling wb1.Protect but you have not set ws1.
You can simplify your case statements to this.

...

    Select Case WeekNum
        Case 1 To 5
            Set ws = wb.Worksheets("Past Due Week " & WeekNum)
            Set ws1 = wb.Worksheets("WO Week " & WeekNum)
            ws.Unprotect
            ws1.Unprotect
        Case Else
           ws.Protect
    End Select
...

 

[Pookiemeister]

There is an average of 5 weeks per month. So I have to two worksheets that need to be filled in depending on that week. So for the first week of the month, which we are in now, I have worksheets WO Week 1 and Past Due Week 1 unprotected, so no one can accidentally insert their data on the wrong week (worksheet). So the other sheets are protected are protected to prevent this from happening. They still can be viewed later on but can have data entered into it. I hope that makes sense. Thank you.

 

[Cubist]

Have you tried the suggested edits and tested it?