Change it to
ChDir ActiveWorkbook.Path