Using multiple checks in single IF statement

[Prevost]

Hi There,
Is there a way in VBA to use an IF statement and have multiple checks? So for example if I wanted to check a cell value for one of several string segments, could I do that with one if statement? I could do multiple ELSEIF statements or multiple CASE statements, but I thought it would be easier to check all in one line and then only have to insert the resulting code once.
Thanks!

Sub MultipleIFs()
Dim A As String, B As String
A = "apple"
B = "banana"
    If InStr(1, ActiveCell.Value, A) Or InStr(1, ActiveCell.Value, B) Then
        'carry out some code
    Else
    End If
End Sub

 

[mole999]

IF on its own will home to the first TRUE value

so checking for one TRUE statement should work

 

[Prevost]

Thanks Moley. I didn't check my code...it actually works. I don't know why I thought that this wouldn't work.....I sometimes forget how code works too
Thanks!