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


????

WB is an object, so use

Set WB = ThisWorkbook

HTH,
Bernie
MS Excel MVP


"Charlotte E." wrote in message ...
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


????

workbook is an object so use this:

Set WB = ThisWorkbook

--


Gary


"Charlotte E." wrote in message
...
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


????

Thanks to both Bernie and Gary :-)



"Gary Keramidas" <GKeramidasATmsn.com skrev i en meddelelse
...
workbook is an object so use this:

Set WB = ThisWorkbook

--


Gary


"Charlotte E." wrote in message
...
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


????