Again from my experience ... relating to the following line in your macro :

ActiveSheet.Copy Before:=Workbooks("tempalatecodal.xlsb").Sheets("u serform")

relating to : u serform

Assuming this is not a typographical error ... you desired to name the Sheet "Userform" but Excel rejected that because that name references an Excel object - a form. Then you utilized a space after the first letter because it changes the name to something Excel will accept ?

I've found Excel doesn't always accept names that include a space. Try adding an underscore ( _ ) to replace the space. Perhaps that will clear up your intermittent error issue.