Hi Chas, thanks for that suggestion.
I've played around with it quite a bit. The best I got was focus on "Use wildcard", but not a check in the box.
One thing led to another, and I reversed the order of some of the existing code, as follows:
        .Show
        With Selection.Find
            .MatchWildcards = True
        End With
That got me most of the way, but only on the second time opening the dialog, after manually selecting "More" to expand it on first opening.
So far I haven't succeeded in using SendKeys to open it in expanded mode the first time.