On Error Resume Next: Err.Clear
    pathtodr = GetSetting("PathToDraft", "Path", "Path", 0)
    If pathtodr = 0 Then
       newpath = InputBox("Ââåäèòå ïóòü ê øàáëîíàì", "Çàäàòü ïóòü ê øàáëîíàì")
       SaveSetting "PathToDraft", "Path", "Path", newpath
    End If
    pathtodr = GetSetting("PathToDraft", "Path", "Path", 0)

    ChDir pathtodr
    avfiles = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", 1, "Âûáåðèòå ôàéë-øàáëîí", , False)
    If VarType(avfiles) = vbBoolean Then
        'áûëà íàæàòà êíîïêà îòìåíû - âûõîä èç ïðîöåäóðû
        Exit Sub
    End If
    
    Workbooks.Open avfiles
............................
    FullName = avfiles
    Filename = Dir(FullName) ' Ñðàáîòàåò òîëüêî åñëè ôàéë ïî óêàçàííîìó ïóòè ðåàëüíî ñóùåñòâóåò
    FilePath = Left(FullName, Len(FullName) - Len(Filename))
    
    ChDir pathh
    filesavename = Application.GetSaveAsFilename(, "Excel files(*.xlsx),*.xlsx", 1, "Ñîõðàíèòå ôàéë")
If filesavename <> False Then
   Workbooks(Dir(avfiles)).SaveAs filesavename
End If
     ChDir pathtodr
    sravfiles = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", 1, "Âûáåðèòå àêò-ñâåðêè", , False)
    If VarType(sravfiles) = vbBoolean Then
        'áûëà íàæàòà êíîïêà îòìåíû - âûõîä èç ïðîöåäóðû
        Exit Sub
    End If
    Workbooks.Open sravfiles