if you run it in step-through / debug mode and hover the pointer over 'WS' or 'Worksheets', does it show you the number of objects in the collection?

another thing worth checking might be that you haven't got events/updating disabled?
in the immediates windows (View, Immediates) type Application.EnableEvents=True and press enter. Same with Application.ScreenUpdating.

Send me a skeleton sheet if you like -