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
Bookmarks