MS Project FileOpen with Wildcard

Hi Everyone,

im trying open a file that has a variable on the end of it.

A typical file may look like Smith Schedule - Rev 03 for example

There is only ever 1 "Smith Schedule" but the revision numer may have changed.

I have tried with the code below to no avail.

Any help is appreciated!

Thanks

Alex

Sub FileOpen()
Dim A As Object
Set A = CreateObject("MSProject.Application")
Set A = Nothing

    A.FileOpen ("C:\Documents\Smith Schedule*" & ".mpp"), ReadOnly:=True
    A.macro "Macro1"
    A.FileClose


End Sub