Why not work... (2000 sr 1)

[sal21]

I am sure into range G:G is present "OI24683"

Sub ALREDAY()
Dim rng As Range
Dim TEST_MATR As String
TEST_MATR = "OI24683"
Set rng = Sheets("STORICO").Range("G:G").End(xlDown).Find( _
What:=TEST_MATR, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
MsgBox "ALREADY PRESENT"
Exit Sub
End If
End Sub

[HansV]

What is the End(xlDown) for?

You are testing for the value <code>OI24683</code>. Are you sure that the value isn't <code>OL24683</code> or <code>0I24683</code> with the digit 0 (zero) instead of the letter O or something like that?

[sal21]

Sorry...SOLVED!!!!
I am stupid used wrong range... now work fine.
Tks.