ActiveSheet.CommandButton1.Visible = False
    NewFileName = "C:\Export\" & strNameFile & ".xls"
    ActiveSheet.Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=NewFileName _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
    Application.DisplayAlerts = True
    ActiveSheet.CommandButton1.Visible = True

Dim intStartColumn As Integer
Dim intStopColumn As Integer
intStartColumn  = 4
intStopColumn  = 10
ThisWorkbook.Worksheets("Sheet1").  ...  .Hidden = False

Dim SearchPosition As String
SearchPosition = "Name2"

Function КвартальнаяСумма(rRange As Range) As Double
    Application.Volatile
    Dim RowFirst As Integer
    RowFirst = rRange.Cells(1).Row
    Dim RowLast As Integer
    RowLast = RowFirst
    Dim ColumnLast As Integer
    Dim ColumnFirst As Integer
    ColumnFirst = rRange.Cells(1).Column
    ColumnLast = rRange.Cells(rRange.Cells.Count).Column
    Do While Sheets("План-Факт").Cells(RowLast, 3).Value <> ""
        RowLast = RowLast + 1
    Loop
    Dim Summ As Double, vVal
    Summ = 0
    For Each rCell In Range(Cells(RowFirst, ColumnFirst), Cells(RowLast, ColumnLast))
        If rCell.Interior.Color = 14348258 Then
            vVal = rCell.Value
            If IsNumeric(vVal) Then
                If rCell.EntireRow.Hidden Or rCell.EntireColumn.Hidden Then
                    If bSumHide Then Summ = Summ + vVal
                Else
                    Summ = Summ + vVal
                End If
            End If
        End If
    Next rCell
    КвартальнаяСумма = Summ
End Function

Let FolderPath = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 11)