Find end of values in a column

[ThomasOES]

I would like to find the first cell in a column different from the rest

For instance column "Z" has hundreds of rows with the cell value "Fe"

I want to select the first cell in the column different from "Fe"

I set the range of the first instance of "Fe" as bastart and was trying this code

[FONT=Verdana]Range(bastart, bastart.End(xlDown)).Find (cell.Value <> "Fe").select[/FONT]

I didnt think it would work, but something similar is what I'm looking for.

Any help would be appreciated

Tom

 

[DanteAmor]

Try this

Sub FindValue()
  Dim i As Long
  For i = 2 To Range("Z" & Rows.Count).End(xlUp).Row
    If LCase(Cells(i, "Z").Value) <> LCase("Fe") Then
      Cells(i, "Z").Select
      Exit For
    End If
  Next
End Sub

 

[ThomasOES]

Dante
I've been extremely busy with other work. I'll let you know soon if your code works for me.
Thanks
Tom

 

[DanteAmor]

No problem, let me know if you have any questions.