Как сделать чтобы блокировались сообщения об ошибках в Excel?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Err
iDate = Target.Value
If IsError(iDate) = True Then Application.Undo
Err: End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Err
iDate = Target.Value
If IsError(iDate) = True Then
   Application.EnableEvents = False
   '-------------------------------------------------'
   Rem Если нужно оставить старое значение ошибки
   Application.Undo
   Rem Если нужно полностью очистить ячейку от ошибок
   Target.Value = ''
   Rem Необходимо выбрать один из двух вариантов
   '-------------------------------------------------'
   Application.EnableEvents = True
End If
Err: End Sub

   On Error GoTo err
   x = 1 / 0
   Stop
err:
   If err.Number <> 11 Then 'если не деление на ноль -сообщать
      MsgBox err.Number
      MsgBox err.Description
   End If
   Resume Next

Sub ПодправитьФормулы()
  Dim rng As Range, rn As Range
  Set rng = Selection
  On Error GoTo 0
  For Each rn In rng
    If Left(rn.Formula, 1) = "=" Then
      s = rn.Value
      If CStr(s) = "Error 2007" Or CStr(s) = "Error 2042" Then
        f = Right(rn.Formula, Len(rn.Formula) - 1)
        rn.Formula = "=IF(ISERROR(" & f & "),0," & f & ")"
      End If
      Err.Clear
    End If
  Next
End Sub

Sub sss()
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, xlErrors).Select
    For Each mCl In Selection.Cells
        If CStr(mc.Value) = "Error 2007" Then mCl.Formula = "=0"
    Next mCl
End Sub