Private Sub CommandButton1_Click()
For i = 3 To 16 Step 4
If Cells(17, i) = 6 Then

End If
Next i
End Sub

Sheets.Add After:=Sheets(Sheets.Count)

Private Sub CommandButton1_Click()

MonthDay = DatePart("d", Now)
SName = ActiveSheet.Name
If SName.Value = MonthDay Then
 MsgBox "Получилось"
End If

End Sub

Private Sub TextBox1_Change()

    Dim n As String
    
    n = "привет"
    
    If TextBox1.Value <> "" Then
    
        Cells(1, 1).Value = Time()
        
        Application.ScreenUpdating = False
        
        If TextBox1.Value = n Then
        
            Cells(2, 1).Value = Time()
            
            SoTImeVal = Cells(2, 1).Value - Cells(1, 1).Value
            
            Cells(3, 1).Value = SoTImeVal
            
            Application.ScreenUpdating = True
            
            MsgBox "вы набирали со скоростью " & SoTImeVal

        End If
    End If

End Sub

If Not Intersect(Target, Range("H7:H300")) Is Nothing Then
Selection.Copy

End If

If Not Intersect(Target, Range("B7:B600")) Is Nothing Then

PrivateSub Worksheet_Change(ByVal Target As Range)
ForEach cl In Target.Cells
If WorksheetFunction.IsText(cl) Then cl.ClearContents
Next
End Sub

Private Sub CommandButton1_Click()

Dim Chislo, Chasy, Minuty

If Not Cells(1, 1) = "" Then

Chislo = Cells(1, 1)
Chasy = Mid(Chislo, 1, 2)
Minuty = Mid(Chislo, 3, 2)
Cells(1, 1) = ""
Cells(1, 1) = Chasy & ":" & Minuty
Else
Cells(1, 1) = ""
End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
m = Cells(16, 9).Value
c = Cells(8, 9).Value

n = m - c
If n < 0 Then
Cells(12, 9).Value = "Норма"
Else
Cells(12, 9).Value = Cells(16, 9).Value - Cells(8, 9).Value
End If

If Cells(8, 9).Value > Cells(6, 9).Value Then
Cells(27, 9).Value = "Избыток"
End If

End Sub

Private Sub Button_prev_Click()
Dim i&
i = ActiveSheet.Index
On Error Resume Next
Sheets(i - 1).Select
Форма_листания.Caption = ActiveSheet.Name
End Sub
Private Sub Button_next_Click()
Dim i&
i = ActiveSheet.Index
On Error Resume Next
Sheets(i + 1).Select
Форма_листания.Caption = ActiveSheet.Name
End Sub
 

Private Sub Workbook_Open() 
   Range("F1", "G1").ClearContents 

   If Cells(1, 6).Value = "" Then
       Cells(1, 6).Value = "Выбрать"
      End If   
End Sub