Worksheet_Calculate and Worksheet_Change

Question

Когда я пытаюсь это сделать, я получаю сообщение об ошибке в строке SetWorkRng. Это в модуле "Эта книга" моего листа. Я пытаюсь заставить этот код работать на листе, который обновляется формулами.

Private Sub Worksheet_Calculate()
   Worksheet_Change Range("AD:AD")
End Sub

Sub Worksheet_Change(ByVal Target As Range)

Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("AD:AD"), Target)
xOffsetColumn = -1
   If Not WorkRng Is Nothing Then
       Application.EnableEvents = False
        For Each Rng In WorkRng
    If Not VBA.IsEmpty(Rng.Value) Then
          Rng.Offset(0, xOffsetColumn).Value = Now
          Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
   Else
          Rng.Offset(0, xOffsetColumn).ClearContents
  End If
Next
  Application.EnableEvents = True
 End If
  End Sub