Sorry, Forgot to mention the errors:
JBeaucaire; I get a runtime error '9'

Subscription out of range.

when I debug it takes me to this line:
Sheets(MyShts(Sht)).Range("A3").PasteSpecial xlPasteValues

And has pasted only 1 account name and no revenues into sheets AGN to EGK



Kafrin; I just get a 'next without for' error for the 'next p' above 'end sub'