Visual Basic para Aplicaciones - Error 424 Se requiere un objeto Excel

Private Sub worksheet_Change(ByVal target As Range)

If target.Count = 1 Then

   Call update(target)

End If

End Sub

Sub update(ByVal target As Range)

Dim hora%, minuto%

Dim vRange As Variant, vRef As Variant

Dim i%

vRange = Array(Range("B11:C13"), Range("D11:E13"), Range("F11:G13"))

vRef = Array("B14", "D14", "F14")

For i = 0 To UBound(vRange)

    If Not Intersect(target, vRange(i)) Is Nothing Then

       hora = Application.WorksheetFunction.Sum(vRange(i).Resize(, 1))

       minuto = Application.WorksheetFunction.Sum(vRange(i).Offset(, 1))

       Select Case minuto

              Case 60 To 119

                   hora = hora + 1

                   minuto = minuto - 60

              Case 120 To 150

                   hora = hora + 2

                   minuto = minuto - 120

       End Select

       With Worksheets("mes").Range(vRef(i))

            If hora = 1 Then

               .Value = hora & " hora " & minuto & " minutos"

            Else

                .Value = hora & " horas " & minuto & " minutos"

            End If

            Select Case hora

                   Case 0

                        .Font.Color = RGB(156, 0, 6)

                        .Interior.Color = RGB(255, 199, 206)

                   Case 1 To 2

                        .Font.Color = RGB(0, 97, 0)

                        .Interior.Color = RGB(198, 239, 206)

                   Case Else

                        .Font.Color = RGB(156, 101, 0)

                        .Interior.Color = RGB(255, 235, 156)

            End Select

       End With

       Exit For

     End If

Next

End Sub