FIND only 4 left part of cells (2000)

[sal21]

i use this line to find in column O the value SERV...

Set Found_INDEX = WS.Columns("O:O").Find(SERV, LookIn:=xlFormulas, LookAt:=xlWhole)

But is possible to find SERV only in left,4 of cells in column O?
Example:

SERV=4500
in column O 4500-aaaaaaaaa

[rory]

If SERV will only ever appear as the first 4 characters, you could simply use:
<code>Set Found_INDEX = WS.Columns("O:O").Find(SERV, LookIn:=xlFormulas, LookAt:=xlPart)</code>

[wdwells]

Could you not make use of Data > Filter > Custom > Begins with?

[mikerickson]

If SERV is a variable,

With WW.Columns("O:O")
Set Found_Index = .Cells(Application.Match(SERV & "*", .Cells, 0), 1)
End With

If "SERV" is the string you want to match,

With WW.Columns("O:O")
Set Found_Index = .Cells(Application.Match("SERV*", .Cells, 0), 1)
End With