Private Sub Worksheet_Change(ByVal Target As Range)
   Dim v, cell As Range
   Set cell = Range("C3")
   If Not Intersect(Target, cell) Is Nothing Then
     With Application
       If .Calculation <> xlCalculationManual Then
         v = cell.Value
         .EnableEvents = False
         .Undo
         .Calculation = xlCalculationManual
         cell.Value = v
         .EnableEvents = True
       End If
     End With
   End If
End Sub

Sub test()
  Dim a(0 To 1000) As Integer
  Debug.Print (VarPtr(a(1000)) - VarPtr(a(0))) / 1000
End Sub

ThisWorkbook.Worksheets(1).Cells(1, 1).Value(11) = ThisWorkbook.Worksheets(1).Cells(1, 1).Value(11)

=A1-ОСТАТ(A1+5;7)-7

Option Explicit

Sub ShowPhoneFolders()
  Dim f As Object, f2 As Object
  Set f = FindFolder("Galaxy A5 (2017)").GetFolder.ParseName("Phone").GetFolder
  For Each f2 In f.items()
    Debug.Print f2
  Next f2
End Sub

' Поиск папки из "Мой компьютер"
Function FindFolder(ByVal FolderName As String) As Object
  Dim oShellApp, f
  Set oShellApp = CreateObject("Shell.Application")
  For Each f In oShellApp.Namespace("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}").items()
    If StrComp(f, FolderName, vbTextCompare) = 0 Then
      Set FindFolder = f
      Exit For
    End If
  Next f
  Set oShellApp = Nothing
End Function

Set f = FindFolder("ZTE BLADE V9 VITA").GetFolder.ParseName("Телефон").GetFolder

Application.WorksheetFunction.VLookup(0, Array(Array(0, 13), Array(5, 3)), 2, 0)