Этот код открывает набор рабочих книг и отлично работает для этого. Однако после того, как рабочие книги были открыты, я хочу, чтобы основная рабочая книга, из которой я запускаю макрос, была активирована и выведена на передний план.
Вот мой код, и он не активируется и выводит основной файл Excel на передний план.
Sub SkipBlankCells2()
Dim cell As Range, rng As Range, FName As String
Set rng = Range("E12:E24")
'Disable Screen Updating - stop screen flickering
' And Disable Events to avoid inturupted dialogs / popups
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Application.DefaultFilePath = ActiveWorkbook.Path
For Each cel In rng
If Len(cel) >= 1 Then
FName = cel.Value
Workbooks.Open Filename:=FName
End If
Next cel
'Enable Screen Updating and Events
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
'Return to master workbook
ThisWorkbook.Activate
End Sub