Sub BreakLinks()
  Dim w1, w2, w3
  On Error Resume Next
  For Each w1 In Array(xlExcelLinks, xlOLELinks)
     w2 = ActiveWorkbook.LinkSources(w1)
     If w2 <> Empty Then
       For Each w3 In w2
         ActiveWorkbook.BreakLink w3, w1
       Next w3
     End If
  Next w1
  On Error GoTo 0
End Sub

=ДАТА(ГОД(СЕГОДНЯ())+ЕСЛИ(ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(A1);ДЕНЬ(A1))<СЕГОДНЯ();1;0);МЕСЯЦ(A1);ДЕНЬ(A1))-СЕГОДНЯ()<=7

Function GetCriteria(r As Range)
    Dim v, FilterIndex
    Const delim As String = ", " ' запятая с пробелом - разделитель списка
    On Error Resume Next
    GetCriteria = "Все"
    With r.Worksheet.AutoFilter
        FilterIndex = r.Column - .Range.Column + 1
        v = .Filters(FilterIndex).Criteria1
        If IsArray(v) Then
          v = Join(v, delim)
        Else
          v = v & delim & .Filters(FilterIndex).Criteria2
        End If
        If v <> "" Then GetCriteria = Replace(v, "=", "")
    End With
End Function

Sub test()
 ActiveCell = "Feb 07 00:00:00 1998 1234 5678"
End Sub

Function ClipboardText() ' чтение из буфера обмена
    Dim i As Long
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        ClipboardText = .GetText
    End With
    For i = 1 To Len(ClipboardText)
        Debug.Print i, Asc(Mid(ClipboardText, i, 1))
    Next i
End Function

MsgBox Int(ActiveCell) & Format(Round((ActiveCell - Int(ActiveCell)) * 60), "\:00")