Запустить макрос если файл найден

Sub auto_open()
'
' RW Макрос
'
 
'
    ChDir _
        "D:\MyDocuments\Desktop\4 Курс\Для генерации отчётов\WindCAM Composite Demo"
    Workbooks.OpenText Filename:= _
        "D:\MyDocuments\Desktop\4 Курс\Для генерации отчётов\WindCAM Composite Demo\123.txt" _
        , Origin:=866, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 9), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 9), Array(7, 9)), _
        TrailingMinusNumbers:=True
    Range("A1:D6").Select
    Selection.Copy
    Windows("Report.xls").Activate
    Range("B36").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.000"
    Windows("123.txt").Activate
    ActiveWindow.Close
End Sub

Private Sub Workbook_Open()
'Вместо Call EntryPoint EntryPoint AskFile вставьте название Вашего главного метода'
     Call AskFile
End Sub
Sub AskFile()
Dim x As String
x = "C:\123.txt" 'Путь и имя файла
If Dir(x) <> "" Then 'Если файл существует, то
Call auto_open 'ИмяВашегоМакроса
Else 'Иначе
MsgBox "ОЙ ОЙ"
End If
End Sub

Sub Graf()
'
' Graf Ìàêðîñ
'
 
'
    Range("B26:C32").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Range("Ëèñò1!$B$26:$C$32")
End Sub