Sub Макрос1()
NM = Range("A1")
WN = Range("A2")
If Dir(ThisWorkbook.Path & "\" & Range("A1") & ".xlsx", vbSystem) <> "" Then
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & NM & ".xlsx"
    Windows("\" & Range("A1") & ".xlsx").Activate
Else
    Workbooks.Add
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs _
    Filename:=ThisWorkbook.Path & "\" & NM & ".xlsx"
    Worksheets(1).Name = WN
    Application.DisplayAlerts = True
End If
End Sub