=ОСТАТ(B5*24*60*60;24*60)

' Добавляет в имена книги имя из ячейки Cell со ссылкой на эту ячейку.
Sub AddCellName(ByVal Cell As Range)
  If Len(Cell.Value) > 0 And VarType(Cell.Value) = vbString Then
    Cell.Parent.Parent.Names.Add Name:=Cell.Value, RefersTo:=Cell
  End If
End Sub

Sub Test()
  AddCellName ActiveCell
End Sub

  Set WB = Workbooks.Open(Filename:=x)

' Снимает защиту проекта.
' Идея: http://www.rondebruin.nl/
Function UnprotectVBProject(ByVal wb As Workbook, ByVal Password As String) As Boolean
    Dim vbProj As Object, vbCtl As Object
    Set vbProj = wb.VBProject
    UnprotectVBProject = False

    If vbProj.Protection <> 1 Then
        UnprotectVBProject = True
        Exit Function
    End If

    Set Application.VBE.ActiveVBProject = vbProj
    DoEvents2
    If Application.VBE.ActiveVBProject.Name <> vbProj.Name Then
        Exit Function
    End If

    Set vbCtl = Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True)
    With vbCtl
        .Reset
        DoEvents2
        .Execute
    End With

    SendKeys Password & "~~", True
    DoEvents2
    
    If vbProj.Protection <> 1 Then
        UnprotectVBProject = True
    End If

End Function

' Многократное выполнение DoEvents
Private Sub DoEvents2(Optional ByVal n As Long = 10)
  Dim i As Long
  
  For i = 1 To n
    DoEvents
  Next i
  
End Sub

Debug.Print Format(CDate(0), "YYYY-MM-DD")

cell.Value2=arg