Why do I get an error in the third line of this little code:

Dim WS As Worksheet
Dim WB As Workbook

WB = ThisWorkbook
For Each WS In WB.Worksheets


????