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

        Dim a 
        Let a = ActiveWorkbook.FullName

Set perem = UserForm1.TextBox1
Call Chang (perem)

Sub Chang (perem)
   If perem.Value = "" Then
      perem.BackColor = &HC0FFFF
   Else
      perem.BackColor = &HFFFFFF
   End If
End Sub

Private Sub CommandButton1_Click()

    UserForm1.Show

End Sub

Call Process

Sub UserForm_Activate()

   Call Process

End Sub

MsgBox ("Сработало")

Private Sub Workbook_Open()
    UserForm.Show
End Sub

<p> и </p>

</br>