79475959

Date: 2025-02-28 15:15:58
Score: 1
Natty:
Report link
    ' Save file
    savePath = folderPath & "Report_" & SafeFileName(key) & ".xlsb"
    If Dir(savePath) <> "" Then Kill savePath
    Application.DisplayAlerts = False
    regionWorkbook.Sheets(1).Delete ' Remove the default empty sheet
    Application.DisplayAlerts = True
   regionWorkbook.SaveAs FileName:=savePath, FileFormat:=xlExcel12
   regionWorkbook.Close SaveChanges:=False
Reasons:
  • Has code block (-0.5):
  • Unregistered user (0.5):
  • Low reputation (1):
Posted by: mukesh gupta