Simplify macro

[Sumeluar]

Good day to all gurus out there, I have a find code and I want it to skip the words like search, category, Go to, etc.


Can this be simplified?

If myText = "Search" Then GoTo Litz
If myText = "search" Then GoTo Litz
If myText = "category" Then GoTo Litz
If myText = "Category" Then GoTo Litz
If myText = "Go" Then GoTo Litz
If myText = "go" Then GoTo Litz
If myText = "Go to" Then GoTo Litz
If myText = "go to" Then GoTo Litz

Regards!

Sumeluar

 

[VoG]

Try

If UCase(mytext) = "SEARCH" Or UCase(mytext) = "CATEGORY" Or UCase(mytext) = "GO" Or UCase(mytext) = "GOTO" Then GoTo Litz

 

[QuietRiot]

Dim myarray, j As Integer, txt As String, check As String
myarray = Array("Search", "search", "category", "Category", "Go", "go", "Go to", "go to")
    For j = LBound(myarray) To UBound(myarray)
        If txt = myarray(j) Then check = "Yes"
    Next j
    If check = "Yes" Then GoTo Litz

 

[Lewiy]

If UCase(myText) = "SEARCH" or If UCase(myText) = "CATEGORY" or If UCase(myText) = "GO TO" then GoTo Litz

But you probably want to avoid using GoTo as well. Perhaps reviewing the rest of your code might be beneficial.

Hope that helps!

 

[Jonmo1]

Maybe something like this

X = Array("SEARCH","CATEGORY","GO","GOTO") 
On Error Resume Next
Y = ""
Y = WorksheetFunction.Match(Ucase(mytext),X)
If Y <> "" Then Goto Litz

 

[Sumeluar]

Thanks Jonmo1, That works perfect.

Regards!

Sumeluar