Simplify code

Hey

Is it possible to simplify this code:

Do While ActiveCell.Value = "O" Or ActiveCell.Value = "T" Or ActiveCell.Value = "A"
            If ActiveCell.Value = "O" Or ActiveCell.Value = "T" Or ActiveCell.Value = "A" Then
            ActiveCell.Offset(1, 0).Select
            Else: Exit Sub
            End If
        Loop

I want to make an efficient (fast) code, but this looks terrible. ....any suggestions?

Hi KBSH,

Instead of

ActiveCell.Value = "O" Or ActiveCell.Value = "T" Or ActiveCell.Value = "A"

try

InStr("OTA", ActiveCell.Value) > 0

See if that makes more sense and works better for you.

I don't know the code InStr(), but found out that it worked, so thanks. I did actually hope that it would be more something like Activecell.value = OTA

The thing that I actually ment is that I have to declare twice that I'm looking for characters like "A" "T" and "O"

Do While ActiveCell.Value = "O" Or ActiveCell.Value = "T" Or ActiveCell.Value = "A"
            If ActiveCell.Value = "O" Or ActiveCell.Value = "T" Or ActiveCell.Value = "A" Then

Can't this be done with just one line?

I tried using Instr but for some reason I was getting errors so I decided to use match.

Sub Macro1()

10  If Not IsError(Application.Match(ActiveCell.Text, Array("O", "A", "T"))) Then ActiveCell.Offset(1, 0).Select: GoTo 10:

End Sub

Thanks mehmetcik. I didn't know that you can work with numbers in front of your code and refer to those numbers. Very useful