Evaluating a Sting in VBA

Hello all,

I'm trying to write a code that will read the value of a cell as a string.
If the string in a cell does not begin with a "<" character, the row that the
evaluated cell is in should be deleted.

I'm thinking I should using the "instr" code, but I can't seem to get it
working.

Any help would be greatly appreciated,

Mike

dim col as long, lastrow as long, i as long
col = 1
lastrow = cells(rows.count,col).End(xlup)
for i = lastrow to 1 step -1
if instr(1,cells(i,col).value,"<",vbTextcompare) then
cells(i,col).EntireRow.Delete
end if
Next i

Change the value assigned to col to reflect the column to check.

--
Regards,
Tom Ogilvy


"Mike" <Mike@discussions.microsoft.com> wrote in message
news:FC690F92-D356-495B-B554-A2AD727FC5B2@microsoft.com...
> Hello all,
>
> I'm trying to write a code that will read the value of a cell as a string.
> If the string in a cell does not begin with a "<" character, the row that
the
> evaluated cell is in should be deleted.
>
> I'm thinking I should using the "instr" code, but I can't seem to get it
> working.
>
> Any help would be greatly appreciated,
>
> Mike