VBA celle udelukkelse

Hej herinde,

Sidder og brygger videre på en vba som jeg har fundet på nettet og har lige et problem.
Det er sat til at fortælle mig, når et varenr allerede er oprettet, da jeg gerne vil undgå dublet varenr.
Den fortæller også I hvilket sheet det allerede eksisterer.
Sagen er, at jeg gerne vil have celle "AL1" I "sheet1" udelukket heraf.
Denne celle bruger jeg til, at søge på varenumre efter LOPSLAGS metoden.
Altså må varenummeret som jeg kan taste I denne celle gerne være andre steder I hele workbook uden at den fortæller mig det.
Min workbook består af 13 sheets

Se VBA her:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
Select Case Target.Value
Case ""
Case Else
For i = 1 To ThisWorkbook.Sheets.Count
Select Case Application.WorksheetFunction.CountIf(Sheets(i).[A2:AN400], Target)
Case 0
Case 1
If Sheets(i).Name <> ActiveSheet.Name Then
GoTo modify
End If
Case Else
GoTo modify
End Select
Next
End Select
Exit Sub
modify:
myPrompt = "Varenr. eksisterer allerede på " & _
Chr(10) & Sheets(i).Name & " Række " & Sheets(i).Cells.Find(What:=Target.Value, After:=Sheets(i).Cells(1, 1), LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Row & _
Chr(10) & _
Chr(10) & "Angiv venligst et nyt varenr."
myDefault = Target
myInput = InputBox(Prompt:=myPrompt, Default:=myDefault, Title:="angiv venligst nyt varenr")
Target = myInput
Next Cell
End Sub