Пользовательское изменение имени файла, для копировании в него данных

Windows("Отчет_01_10_2015").Activate.
 
'----------макрос, оформление--------
'и т.д.

If Application.Dialogs(xlDialogOpen).Show = True Then
   With ActiveWorkbook
        MsgBox "Вы открыли " & .Name '.FullName
        'Здесь можно работать с открытой книгой
        'причём без всяких переменных
   End With
Else
   MsgBox "Вы отказались от выбора книги", vbCritical, ""
End If

Dim Path As String, P_OT As String
... 
...
...
If MsgBox("Выберите файл отчета", vbInformation + vbYesNo, "Выбор отчёта") = vbYes Then
        If FilesToOpen = Empty Then
        FilesToOpen = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", , "Выберите файл отчёта", , True)
        If (Path <> "") Then
        Path = Dir(FilesToOpen(1))
        Else
        MsgBox ("Вы не выбрали ни одного файла пожайлуста повторите попытку")
        GoTo END_CODE:
        End If
        P_OT = ActiveWorkbook.Name
        '--------------------------------
        Windows(P_OT).Activate                                          '===Текуший файл от куда берутся данные для Отчета===
        '--------------------------------
        Else
        Range("A1").Select
        GoTo END_CODE:
        End If
    Else
    MsgBox ("Вы не выбрали ни одного файла пожайлуста повторите попытку")
    GoTo END_CODE:
    End If