If not it enter the new value
If duplication it gives a popup informing there is a popup and that is where I get stuck
I need help to gee the value that is duplication and move the cursor to that cell in Colum A1 to 100000 whatever the range is, where ever it is found after informing there is duplication
macro
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arrCC() As String
Dim strNewCC As String
Dim rngData As Range
Dim i, j, n As Integer
If Target.Column > 1 Then Exit Sub
With Me
strNewCC = .Cells(Target.Row, 1) & .Cells(Target.Row, 2)
Set rngData = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp).Offset(0, 1))
End With
ReDim arrCC(1 To rngData.Rows.Count)
For i = 1 To UBound(arrCC)
arrCC(i) = rngData.Cells(i, 1) & rngData.Cells(i, 2)
Debug.Print "arrCC(" & i & ") = " & arrCC(i)
Next i
For j = 1 To UBound(arrCC)
If arrCC(j) = strNewCC Then n = n + 1
Next j
If n > 1 Then MsgBox "ID No exsist", vbInformation + vbOKOnly, "Ey-up..."
Here it must go to the cell in colum “A” where the value is that is duplication
End sub