<div>
HI, 
 
pls try 
 

<pre><code class="code-1 nolinks" id="code-20-41481090-1">MsgBox &quot;The name of the active workbook is &quot; &amp; ActiveWorkbook.Name
</code></pre>
Regards
</div>

<div>
ActiveWorkbook.Name gives you &nbsp;the name of the workbook that is on TOP
</div>

<div>
The newly opened workbook will always be the ActiveWorkBook, unless you activate a different workbook after opening. In your code you set a variable MyBook which is the newly opened workbook. Use that variable to refer to that workbook, you do not need ActiveWorkBook that way 
 

<pre><code class="code-1 nolinks" id="code-20-41481102-1"> Set mybook = Workbooks.Open(MyPath &amp; MyFiles(FNum), UpdateLinks:=2)
MyBook.Sheet1.Range(&quot;A1&quot;).value=&quot;Hello World&quot;
</code></pre>
</div>

<div>
see line 102 - I need to make sure I am modifying the correct workbook/worksheet. &nbsp;the &quot;UpdateResPlan&quot; function opens the original workbook based on directory. &nbsp;Then I need this code process the update active workbook. 
 

<pre><code class="code-100 nolinks" id="code-20-41481112-1">Public Function MergeMultipleSheets()
 Dim MyPath As String, FilesInPath As String
 Dim MyFiles() As String
 Dim SourceRcount As Long, FNum As Long
 Dim mybook As Workbook, wbMaster As Workbook
 Dim BaseWks As Worksheet, ws As Worksheet
 Dim sourceRange As Range, destrange As Range
 Dim rnum As Long, CalcMode As Long
 Dim rng As Range, SearchValue As String
 Dim FilterField As Integer, RangeAddress As String
 Dim ShName As Variant, ShNames As Variant, RwCount As Long
 Dim nFilter As String

 'Application.EnableCancelKey = xlDisabled
 
 '****************************************************************************************************************************
 'Calls function to update ResPlan in active workbook
 'Executes Updating of the ResPlan data to proper format for extraction of data in correct format
 '****************************************************************************************************************************
 Call UpdateResPlan
 
 MyPath = ThisWorkbook.Sheets(&quot;Data Input&quot;).Range(&quot;B1&quot;)
 
 '****************************************************************************************************************************
 ' Fill in the name of the sheet containing the data.
 ' Use ShName = &quot;Sheet Name&quot; to use a sheet name instead if its
 ' index. This example uses the index of the first sheet in
 ' every workbook.
 '****************************************************************************************************************************
 
 ShNames = Array(&quot;ProjSum&quot;, &quot;ResPlan_data&quot;, &quot;FinSum&quot;, &quot;CommSum&quot;, &quot;InvPlan&quot;)
 'ShNames = Array(&quot;FinSum&quot;)

 '****************************************************************************************************************************
 'Merge data into existing worksheets in this workbook
 '****************************************************************************************************************************
 
 Set wbMaster = ActiveWorkbook
 ' Add a slash after MyPath if needed.
 If Right(MyPath, 1) &lt;&gt; &quot;\&quot; Then
 MyPath = MyPath &amp; &quot;\&quot;
 End If
 
 '****************************************************************************************************************************
 ' check for possible missing files, if there are no Excel files in the folder, exit.
 '****************************************************************************************************************************
 FilesInPath = Dir(MyPath &amp; &quot;*.xls*&quot;)
 If FilesInPath = &quot;&quot; Then
 MsgBox &quot;No files found&quot;
 Exit Function
 End If
 '****************************************************************************************************************************
 ' Fill the myFiles array with the list of Excel files in the folder.
 ' If there are no Excel files in the folder, exit.
 '****************************************************************************************************************************
 FNum = 0
 Do While FilesInPath &lt;&gt; &quot;&quot;
 FNum = FNum + 1
 ReDim Preserve MyFiles(1 To FNum)
 MyFiles(FNum) = FilesInPath
 FilesInPath = Dir()
 Loop
 '****************************************************************************************************************************
 ' Added Filter function - current may not be needed
 '
 ' nFilter = ThisWorkbook.Sheets(&quot;Data Input&quot;).Range(&quot;B2&quot;)
 ' If nFilter = &quot;&quot; And FilesInPath &lt;&gt; &quot;&quot; Then
 ' MsgBox &quot;No files found&quot;
 ' Exit Function
 ' Else
 ' FilesInPath = Dir(MyPath &amp; nFilter &amp; &quot;*.xl*&quot;)
 ' Debug.Print FilesInPath
 ' End If
 '****************************************************************************************************************************
 ' Change application properties.
 '****************************************************************************************************************************
 With Application
 CalcMode = .Calculation
 .Calculation = xlCalculationManual
 .ScreenUpdating = False
 .EnableEvents = False
 End With
 '****************************************************************************************************************************
 ' Clear data from summary worksheets
 '****************************************************************************************************************************
 For Each ShName In ShNames
 Set rng = Nothing
 On Error Resume Next
 Set rng = wbMaster.Worksheets(ShName).UsedRange
 On Error GoTo 0
 If Not rng Is Nothing Then
 'Don't delete header labels in the first row
 Set rng = rng.Offset(1, 0)
 rng.ClearContents
 End If
 Next

 rnum = 1
 '****************************************************************************************************************************
 ' Loop through all files in the myFiles array.
 '****************************************************************************************************************************
 If FNum &gt; 0 Then
 For FNum = LBound(MyFiles) To UBound(MyFiles)
 Set mybook = Nothing
 'Set wbMaster = ThisWorkbook
 On Error Resume Next
' Set mybook = Workbooks.Open(MyPath &amp; MyFiles(FNum), UpdateLinks:=2)
' For Each mybook In Application.Workbooks
' mybook.Activate
' Next
' 'wbMaster.Activate

 On Error GoTo 0

 If Not mybook Is Nothing Then

 For Each ShName In ShNames
 Set ws = Nothing
 On Error Resume Next
 Set ws = mybook.Worksheets(ShName)
 On Error GoTo 0
 
 If Not ws Is Nothing Then
 Set BaseWks = wbMaster.Worksheets(ShName)
 
 Set sourceRange = ws.UsedRange
 
 'Exclude header labels
 Set rng = sourceRange.Offset(1, 0).Resize(sourceRange.Rows.Count - 1, sourceRange.Columns.Count)
 
 RwCount = rng.Rows.Count
 rnum = BaseWks.Cells(BaseWks.Rows.Count, 1).End(xlUp).Row + 1
 
 BaseWks.Cells(rnum, &quot;A&quot;).Resize(RwCount).Value _
 = mybook.Name
 BaseWks.Cells(rnum, &quot;B&quot;).Resize(RwCount, rng.Columns.Count).Value = rng.Value
 End If
 
 Next
 '****************************************************************************************************************************
 ' Close the workbook without saving.
 '****************************************************************************************************************************
 mybook.Close SaveChanges:=False
 End If

 '****************************************************************************************************************************
 ' Open the next workbook.
 '****************************************************************************************************************************
 Next FNum

 ' Set the column width in the new workbook.
 BaseWks.Columns.AutoFit
 MsgBox &quot;Look at the merge results after you click on OK.&quot;
 End If
 '****************************************************************************************************************************
 ' Restore the application properties.
 With Application
 .ScreenUpdating = True
 .EnableEvents = True
 .Calculation = CalcMode
 End With
 '****************************************************************************************************************************
 
End Function
</code></pre>
</div>

<div>
<div class="content wysiwyg-content">
Looking for the correct syntax to verify if workbook and worksheet are active and if so continue to process code accordingly. 
 
&nbsp; &nbsp; &nbsp; &nbsp; Set mybook = ThisWorkbook.Sheets 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set mybook = Workbooks.Open(MyPath &amp;&nbsp;MyFiles(FNum), UpdateLinks:=2) 
 
My code runs three functions and the 1st function opens the workbook, so in different portion of the code needs to validate if the workbook is active. &nbsp;Note I will always have another workbook (Master) open to execute the code that opens multiple files for update 1 at a time. 
 
How do I determine which is active workbook with multiple workbooks open?
</div>
</div>

Looking for the correct syntax to verify if workbook and worksheet are active and if so continue to process code accordingly.

        Set mybook = ThisWorkbook.Sheets
            Set mybook = Workbooks.Open(MyPath & MyFiles(FNum), UpdateLinks:=2)

My code runs three functions and the 1st function opens the workbook, so in different portion of the code needs to validate if the workbook is active.  Note I will always have another workbook (Master) open to execute the code that opens multiple files for update 1 at a time.

How do I determine which is active workbook with multiple workbooks open?

How do I determine which is active workbook with multiple workbooks open?

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.