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