Sub CorrReportFile(Filename As String)
Dim strFileName As String, wb, ws
Dim fileSaveName
Dim objVBC
strFileName = "Принципал_" & Replace(Filename, """", "")
strFileName = ThisWorkbook.Path & "\" & strFileName & ".xls"
Set wb = Workbooks.Open(strFileName)
With wb
'этих листов быть не должно
'for each ws in
.Worksheets("list").Delete
.Worksheets(strParamsSheetName).Delete
End With
'все вбпрожект-фишки удаляю
For Each objVBC In wb.VBProject.VBComponents
    If objVBC.Type >= 1 And objVBC.Type <= 3 Then
        objVBC.Collection.Remove objVBC
    ElseIf objVBC.Type = 100 Then
        objVBC.CodeModule.DeleteLines 1, objVBC.CodeModule.CountOfLines
    End If
Next
wb.Save
wb.Close
Set wb = Nothing
End Sub