Application Match with Multiple criteria

mchilapur · Jun 22nd 2016

Hello all,
I use below code to select header by name "XYZ".
Few times it gets changed to "XYZA".
I need "Application.Match" code to select either of these header whichever is available, Like Application.Match("XYZ" or "XYZA").

How best i can modify it..?

Code

Cells(1, Application.Match("ABC", Range("1:1"), 0)).Select

mrmmickle1 · Jun 22nd 2016

Re: Application Match with Multiple criteria

Maybe something like this will work:

Code

Sub Test()


On Error Resume Next 'Suppress Errors
Cells(1, Application.WorksheetFunction.Match("XYZ", Range("1:1"), 0)).Select
Cells(1, Application.WorksheetFunction.Match("XYZA", Range("1:1"), 0)).Select
On Error GoTo 0 'Reset Error Handling


End Sub

Application Match with Multiple criteria

Participate now!

Share