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)

Set x = [B1:D21].Offset(, Choose(i, 0, 4, 8))

Private Sub CommandButton1_Click()
Dim n As Byte

m = 0
For i = 1 To 21
n = Int((21 * Rnd) + 1)
k = Int((3 * Rnd) + 2)

If Cells(n, k).Value = "" Then
Cells(n, k).Value = "500"
Else
GoTo jump
End If

m = m + 1
If m = 3 Then
Exit Sub
End If
jump:
Next i

End Sub

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