Пропустить ошибки

[agregator]

Здравствуйте уважаемые программисты. Подскажите пожалуйста как сделать, чтобы при наличии ошибки в ячейке типа #ДЕЛ/0!, #ССЫЛКА! и т.п. Макрос не выдавал Debug, а выдавал номер столбца сегодняшней датой, т.е. пропускал ошибки. On Error Resume Next не подходит, т.к. выдает номер столбца с ошибкой.Private Sub

Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
For Each n In ActiveSheet.UsedRange.Cells
On Error GoTo dal
If n.Value = Date Then
  iColumn = n.Column
  MsgBox n.Value
  MsgBox iColumn
  End If
dal:
Next
End Sub

[Скрипт]

Предположу, что вот так можно отслеживать любую Excel-ошибку.

Код работает с активной ячейкой:

Sub Макрос1()

    'Отслеживание любой Excel-ошибки, кроме "#Н/Д".
    'Вывод результата в View - Immediate Window.
    Debug.Print Application.WorksheetFunction.IsErr(ActiveCell)
    
    'Отслеживание только одной Excel-ошибки: "#Н/Д".
    Debug.Print Application.WorksheetFunction.IsNA(ActiveCell)
    
End Sub

[agregator]

Спасибо за внимание. Решил этот вопрос так

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
On Error Resume Next
For Each n In ActiveSheet.UsedRange.Cells
If n.Value <> Date Then
 Else
 iColumn = n.Column
  MsgBox n.Value
  MsgBox iColumn
  End If
Next
End Sub