Function motoart_1(t)
motoart_1 = Split(Split(t, "N")(1), " ")(0) * -1
End Function

Sub Всем_Привет()
With Cells
.Replace "{DEL}", "=del/0", 1, 1
.SpecialCells(-4123, 16).EntireRow.Select 'Delete
End With
Beep
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 1).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = 0
If Not Intersect(Target, Columns(2)) Is Nothing Then
 If Target.Row > UsedRange.Rows.Count Then Target.Offset(, -1).Select
End If
Application.EnableEvents = 1
End Sub

Sub ttt() 'в код листа
With Intersect(Columns("A:B"), UsedRange)
.SpecialCells(4).Delete -4162
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Sheets(Target.Value).Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
If Target = "Груша" Then
Sheets("круша").Select
Else
Sheets(Target.Value).Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Sheets(1)
If Not Intersect(Target, Range("a6:a8")) Is Nothing Then
del
With Sheets(2).Columns(1)
Set f = .Find(What:=Target, LookIn:=xlValues, LookAt:=xlWhole)
  If Not f Is Nothing Then
  Target.AddComment Text:="ID: " & f & Chr(10) & "Name: " & .Cells(f.Row, 2) & _
    Chr(10) & "Age: " & .Cells(f.Row, 3) & Chr(10) & _
    "Passport: " & .Cells(f.Row, 3)
  Else
  Target.AddComment Text:="Не найдено."
  End If
End With
Else
  del
End If
End Sub

Sub del()
If ActiveSheet.Comments.Count > 0 Then
  For Each x In ActiveSheet.Comments
  x.Delete
  Next
End If
End Sub

Sub www()
With [a1:a10]
For Each x In .Cells
  If x Like "https://*" Then Hyperlinks.Add x, x
Next
End With
Beep
End Sub

Sub Посвящается_kuklp_Сегодня_День_Сварщика()
she = Array("Титул", "ВО1", "ВО", "МК1", "МК", "КН1", "КН", "ОК1", "ОК")
rng = Array("DA31:DF31", "AY243:BA243", "AZ254:BA254", "DA46:DF46", "DA47:DF47", "DA52:DF52", "DA53:DF53", "DA44:DF44", "CZ47:DF47")
i = 0
For Each sh In she
Sheets(sh).Range(rng(i)).ClearContents
i = i + 1
Next sh
End Sub

Sub jmqw()
With [D:M]
.Columns.Hidden = Not .Columns.Hidden
End With
End Sub

Sub www()
With Range("K24:K29")
MsgBox .Find(WorksheetFunction.Max(.Cells)).Row
End With
End Sub

Sub Миша_с_возвращением_вскл_зн()
UsedRange.SpecialCells(4).Delete Shift:=xlToLeft
End Sub