Sub проба()
проверка True, [Лист1!B4].Value + [Лист1!C4].Value
End Sub

Sub проба()
проверка True, [B4].Value + [C4].Value
End Sub

Sub транслировать_видео_из_текущего_плейлиста()
If Sheets("лист1").Range("A5").Value = ЛОЖЬ Then
макрос1 True, [D4].Value + [D5].Value
Else
макрос2 False
End If
End Sub

Dim go1 
If Sheets("ÏÓÍÊÒ ÓÏÐÀÂËÅÍÈß").Range("A5").Value = ËÎÆÜ Then 
go1 = TimeValue(Now) >= Range("D4").Value 
Else 
go1 = TimeValue(Now) <> TimeValue(Now) 
End If 

Do Until go1
Range("D12").Select
Application.Wait Time:=Now + TimeValue("00:00:01")
Range("D13").Select
Application.Wait Time:=Now + TimeValue("00:00:01")
Loop

Sub проба()
Dim go1
If Sheets("Лист1").Range("A5").Value = 1 Then
Set go1 = TimeValue(Now) >= Range("D4").Value
Else
Set go1 = TimeValue(Now) <> TimeValue(Now)
End If

Do Until go1
Range("D12").Select
Application.Wait Time:=Now + TimeValue("00:00:01")
Range("D13").Select
Application.Wait Time:=Now + TimeValue("00:00:01")
Loop

End Sub

Call Shell("C:\Program Files\PotPlayer\PotPlayerMini64.exe " & ActiveCell.Value, 1)

Public Function GetDuration(sHref$) As Single
     Dim oFile As Object
     On Error Resume Next
     Set oFile = GetDesktop.parsename(sHref)
     GetDuration = TimeValue(oFile.Parent.getdetailsof(oFile, 27))
     Set oFile = Nothing
 End Function
 Private Function GetDesktop()
     Static Desktop As Object
     If Desktop Is Nothing Then
         Set Desktop = CreateObject("shell.application").Namespace(0)
     End If
     Set GetDesktop = Desktop
  End Function

Sub PagesCount()
    With ActiveSheet
        .Range("L2") = .HPageBreaks.Count + 1
        fRow = .HPageBreaks(.HPageBreaks.Count).Location.Cells.Row
        lRow = .Cells(.Rows.Count, 2).End(xlUp).Row
        .Range("L3") = lRow - fRow + 1
    End With
End Sub