hi i get a debug error with the following line. why is that?

ActiveWorkbook.SaveAs Filename:=pathname & SaveFile & "test1.xlsb"

ActiveWorkbook.Close