Move worksheet stuff into function; name workbook with project id.