I have a list of ships and their details that I copy from the Lloyds register.
One of the details is the IMO nr. that is unique. Is there a way that I can check if this value is already in the list and warn me of this.

Thanx
John

Here is a simple way

Sub CheckForIMR()

If Check_Existence_Of_IMO() = True Then
    MsgBox "IMO nr exists"
End If
End Sub


Function Check_Existence_Of_IMO(ByVal sText) As Boolean

Dim rFnd As Range
Dim sText As String

Set rFnd = ActiveSheet.Range("A:A").Find(What:=sText, LookAt:=xlPart)
If Not rFnd Is Nothing Then
    Check_Existence_Of_IMR = True
Else
    Check_Existence_Of_IMR = False

End If

End Function

Just replace the range where it needs to be checked Range("A:A")

Cheers
Shasur


http://www.vbadud.blogspot.com

Thanx Shasur for the super quick help

John