VBA Rewriting OR's

[Stephen_IV]

I am not great at VBA but I am looking for another way to write many OR's . Can someone please guide me. Thanks in advance!

if cells(i,1)=10 or cells(i,1)=21 or cells(i,1)=37 or cells(i,1)=39 or cells(i,1)=47 or cells(i,1)=52 or cells(i,1)=63 or cells(i,1)=64 or cells(i,1)=67 or cells(i,1)=68 then

 

[Norie]

Perhaps Select Case?

Select Case Cells(i,1).Value
    Case 10, 21, 37, 39, 47, 52, 63, 64, 67, 68
        ' then do something

    Case Else
        ' or do something else
End Select

 

[Stephen_IV]

Thanks Norie. Yeah that worked!! Sometimes it is right in front of you! Thank you again!