Hi all
I have a routine for which i include some error handling.
It basically loops through sheets, and then for each sheet loops through a number of filters and copies data across.
For weekx = weekfrom To Weekto
ThisWorkbook.Activate
datasheetname = Sheets("Weeks").Cells(weekx...