Forum Discussion

Al2kmontes's avatar
Al2kmontes
Copper Contributor
Nov 13, 2023

Help debbuging - I have checked the path, files names, etc. any help is appreciated.

Private Sub Workbook_Activate() End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks("DONT DELETE.xls").Close SaveChanges:=False Kill "G:\Training Unit\Cadet Training\Unit Folder...
Macros and VBA
Al2kmontes's avatar
Al2kmontes
Copper Contributor
Nov 13, 2023
I keep getting the 1004 error
    • Al2kmontes's avatar
      Al2kmontes
      Copper Contributor
      Nov 13, 2023
      ActiveWorkbook.SaveAs "G:\Training Unit\Cadet Training\Unit Folder\Instructors\Class Material\Departments\Testing\DONT DELETE.xls"
      • HansVogelaar's avatar
        HansVogelaar
        MVP
        Nov 13, 2023

        Al2kmontes 

        Try replacing the lines

         

        Workbooks.Add
        ActiveWorkbook.SaveAs "G:\Training Unit\Cadet Training\Unit Folder\Instructors\Class Material\Departments\Testing\DONT DELETE.xls"
        Workbooks.Open Filename:="G:\Training Unit\Cadet Training\Unit Folder\Instructors\Class Material\Departments\Testing\DONT DELETE.xls"

         

        with

         

        Workbooks.Add.SaveAs FileName:="G:\Training Unit\Cadet Training\Unit Folder\Instructors\Class Material\Departments\Testing\DONT DELETE.xls", FileFormat:=xlExcel8

Resources