I need a message box which pops up when there is duplication on a spreadsheet, to be more descriptive by showing some of the duplicated information in the message. I have entered stuff but due to the order in which I am doing things I can't check if it works and since all my VBA is self taught I struggle to eyeball stuff. Can a much more learned forumite give this an eyeball and let me know if it will work and if not what I need to change?
Sub New_Applicant() Dim shp As Shape Dim Code As String Dim c As Range NewRow = Sheets("ERVS").Cells(Rows.Count, 1).End(xlUp).Row + 1 Set Rng = Sheets("ERVS").Range("A" & NewRow) Application.ScreenUpdating = False With Sheets("ERVS").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row + 1) Set c = .Find(UserForm1.TextBox1.Value, LookIn:=xlValues) If Not c Is Nothing Then ans = MsgBox(Cells(Cell.Row, 11).Value & " " & Cells(Cell.Row, 12).Value & "'s post " & Cells(Cell.Row, 14).Value & _ "is already on the sheet, the applications progress is " & Cells(Cell.Row, 4).Value & ". Do you want to continue?", vbYesNo + vbCritical, "Caution") Select Case ans Case 6 'Yes Application.Run "CopyStuff" Exit Sub Case 7 'No Exit Sub End Select End If End With Application.Run "CopyStuff" Application.ScreenUpdating = True End Sub