Now I'm confused -- in ver 013 I changed to the array you asked for in post #36. Every thing else should be the same
All you need to do is manually maintain the array
aryWorksheets = Array("Blagoevgrad total", "Burgas total", "Varna total", _ "Veliko Tyrnovo total", "Vidin total", "Vraca total", "Gabrovo total", _ "Dobrich total", "Kyrdjali total", "Kustendil total", "Lovech total", _ "Montana total", "Pazardjik total", "Pernik total", "Pleven total", "Plovdiv total", _ "Razgrad total", "Ruse total", "Silistra total", "Sliven total", "Smolqn total", _ "Sofia total", "Sofia oblast total", "Stara Zagora total", "Tyrgovishte total", _ "Haskovo total", "Shumen total", "Qmbol total") For iWS = LBound(aryWorksheets) To UBound(aryWorksheets) Call DoAllRows(Worksheets(aryWorksheets(iWS))) Next



