A bit of code I have come up with seems to freeze, and in some cases crash, excel and I don't understand why.

It is essentially designed to check if any cells in column A of Sheet1 contain the value "Error - Not Inputted" and if so copy across some data and move the user to a sheet, or alternatively if that valuue is not present display a msgbox and move the user to a different sheet.

Any ideas why it is not working....

Sub Test()
For Each Cell In Sheets("Sheet1").Range("A:A")
        If Cell.Value = "Error - Not Inputted" Then
            Cell.EntireRow.Copy
            Sheets("Discrepancies").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
                Paste:=xlPasteValues
            Application.CutCopyMode = False
            MsgBox ("There are some stock items that you have not inputted in the stock take...")
            Sheets("Discrepancies").Select
        Else
        MsgBox ("Go To Upload Sheet")
        Sheets("Upload Sheet").Select
        End If
        
Next Cell

End Sub
Thanks in advance