i am trying to delete Module1 and Thisworkbook macro in saveas file.but macro is not deleting the saveas file
Code
Workbooks(originalworkbook).Close SaveChanges:=False
targetfile = Range(cell_target_File).Value + " Upload"
If Not targetworkbook = (".xlsx") Then
ActiveWorkbook.SaveAs Filename:=targetfile & ".xls", FileFormat:=xlExcel8
Application.DisplayAlerts = False
Else
ActiveWorkbook.SaveAs Filename:=targetfile
Application.DisplayAlerts = False
End If
Set Workbooks(".xls").Worksheets(" Upload Template").Activate
ActiveWorkbook.Unprotect ("mypwd")
Set vbCom = Application.VBE.ActiveVBProject.VBComponents
vbCom.Remove VBComponent:= _
vbCom.Item("Module1")
Application.EnableEvents = False
'Remove all code from ThisWorkbook code module
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.DeleteLines 1, _
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.CountOfLines
Application.EnableEvents = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Display More