I'm trying to go throug all sheets in the active workbook and delete some of
them based on the sheet name. This is what i have so far:

Dim WSS As Worksheet
For Each WSS In ActiveWorkbook
MsgBox "now " & WSS.Name & " will be deleted"
If Right(WSS.Name, 2) = "_1" Then WSS.Delete
Next

I get an error about the "ActiveWorkbook" in line two.

Anyone able to help me out?
The Doctor