I'm afraid I did not test it, there is no need for the pastespecial... at the end
[VBA] mkprng.Copy Destination:=ActiveWorkbook.Worksheets(i).Range("A:AL")[/VBA]