if you want save as xlsx you need FileFormat:= xlOpenXMLWorkbook not xlNormal