Run-time error 13 - Problem deleting rows

Hiya all,

I'm not the sharpest tool in the shed when it comes to excel programming but I manage. However, I can't seem to get rid of this run-time error 13. Could anyone take a quick peek at the document and spot the problem?

My intention is this, when typing 'Yes' in the AB column on a certain row, that row is cut from that worksheet and moved to the 'Archive' worksheet, also, simultaneously, I want to send a mail to a specific address.

Here is when I run into the error, I suspect when the row is removed with the 'Yes', those two macros clash.

Thanks in advance!

Macster

Many thanks Leith,

Hm, quite sure that I attached the correct file, this is the code that both initiates the mail function aswell as deleting the row:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Dest As Worksheet
    Set Dest = ThisWorkbook.Worksheets("Archive")
    If Not Application.Intersect(Range("AB1:AB400"), Target) Is Nothing Then
        If Target.Value = ("Yes") Then
            Target.Value = ""
            Mail_Range_Outlook_Body
            Target.EntireRow.Copy Destination:=Dest.Range("a1000").End(xlUp).Offset(1, 0)
            Target.EntireRow.Clear
        End If
    End If
End Sub

Hello Macster,

Here is the corrected code...

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim Dest As Worksheet
  
    Set Dest = ThisWorkbook.Worksheets("Archive")
    
    Application.EnableEvents = False
      If Not Application.Intersect(Range("AB1:AB400"), Target) Is Nothing Then
        If Target.Cells(1, Target.Columns.Count).Value = "Yes" Then
            Target.Value = ""
            Mail_Range_Outlook_Body
            Target.EntireRow.Copy Destination:=Dest.Range("a1000").End(xlUp).Offset(1, 0)
            Target.EntireRow.Clear
        End If
      End If
    Application.EnableEvents = True
    
End Sub