MATCH (or FIND) with multiple criteria and wildcards

[Dr. Demento]

I need to find the .address of the cell within a header (rngHeader) that contains either "DoB" or "Birth*" ([Birth* = Birth or Birthdate or Birthday] I'd like the seach/match to be case-insensitive, please).
This works fine but won't capture DoB:

rngDoB = WorksheetFunction.Match("BIRTH*", rngHeader, 0)

but this doesn't (I tried both "&" and "or" separately)

rngDoB = WorksheetFunction.Match("BIRTH*" &/or "DoB", rngHeader, 0)

I searched around but couldn't come up with anything that merged both multiple criteria and wildcards. Or, I may be totally spacing it (altogether possible).

Thanks, y'all.

 

[Dr. Demento]

Bump. Anyone??

 

[Dr. Demento]

I'm stuck in a circular loop. According to this post, I can assign multiple criteria by referencing the specific cells and concatenating the named range/cell; however, I'm actually searching for the column that contains the search criteria. *head imploding into Mobius strip*

Any pointers out of this wormhole? Again, I'm trying to find the single column in the header that could contain any of the following terms: DoB OR Birthdate OR Birthday OR Date of Birth.

Richard Schollar's avatar seems fitting right about now

 

[Dr. Demento]

In the interest of closing the loop, the good folks at Chandoo had some ideas.

From Deepak (looped searches):

Option Explicit

Sub test()

Dim frng As Range, rngHeader As Range

Set rngHeader = [A1:D1]
Set frng = rngHeader.Find("BIRTH", , , xlPart, , , True)

If frng Is Nothing Then Set frng = rngHeader.Find("DOB", , , xlPart, , , True)
If Not frng Is Nothing Then Debug.Print frng.Address

End Sub

From jindon:

Dim x
     x = Filter(Application.IfError(Application.Match(Array("DOB", "*Birth"), rngHeader, 0), Chr(2)), Chr(2), 0)
     If UBound(x) > -1 Then
         Set rngDOB = rngHeader.Cells(x(0))
         MsgBox rngDOB.Address
     Else
         MsgBox "Not found"
     End If