Moving a row to another sheet and deleting the empty row

Hi all,

I posted a question yesterday and received an excellent answer within minutes!

I now have a macro question.

After searching, I found the below code written by arlu1201 and it worked brilliantly, but when I amended the details to suit my sheet, the code works, but has a error come up saying Run time error 13, type mismatch.

I dont know what I have done wrong as all the words match including case size....

Sheet 1 - Column one can be changed to either active or returned. If Returned, then the row moves to the Returned Vans sheet and empty row on sheet 1 is deleted.

Link to thread: http://www.excelforum.com/excel-prog...-down-box.html

Code: Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value = "Returned" Then
Target.EntireRow.Copy Worksheets("Returned Vans").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End If
End Sub

Any helps is appreciated.

thank you in advance.

Thanks Raga.

Bizzare now the macro doesnt work at all? macros is enabled but the row doesnt move at all when changed to "Returned"

Any clues?

Thats correct.

I shut the sheet done and reopened it and now it works! without the error.

Thanks Raga!