Public Sub copy_logo_test()
    Dim initWkBkCount As Integer
    initWkBkCount = Workbooks.Count
    If open_workbook(COMtest, True) Then
        Workbooks(Workbooks.Count).Worksheets(1).Copy _
            After:=Workbooks(initWkBkCount).Worksheets(2)
        Workbooks(Workbooks.Count).Close SaveChanges:=False
    End If
     
End Sub

 For fpaglsCounter = 1 To MaxFullPathAgencyNumber
 
       FullPathAgencyName = FullPathAgenciesList(fpaglsCounter)
 
       If open_workbook(FullPathAgencyName) Then
 
            For wkshCounter = AgReportWkShNb To Workbooks(Workbooks.Count).Worksheets.Count
 
                  Workbooks(Workbooks.Count).Worksheets(wkshCounter).Copy _
                       After:=Workbooks(intCurWkBk).Worksheets(intCurWkSh)
                  intCurWkSh = intCurWkSh + 1
 
            Next wkshCounter
 
      End If
 
Next fpaglsCounter  

Public Function open_workbook(InputFile As String, Optional ReadOnly As Boolean) As Boolean
    'checks weither workbook exists, then open the named workbook
    'in ReadOnly mode by default if no access mode is supplied
    'arguments are: workbook_name, (optional access mode's name ReadOnly )
    'access_mode may be either False (ReadWrite), or True (ReadOnly)
    'if no access_mode is given, RO mode is assumed
    Dim Access As Boolean
    If IsMissing(ReadOnly) Then
        ReadOnly = True
    End If
 
    If does_file_exist(InputFile) Then
        Workbooks.Open Filename:=InputFile, UpdateLinks:=True, ReadOnly:=ReadOnly
        open_workbook = True
      Else
        open_workbook = False
    End If
End Function

Workbooks.Open Filename:=InputFile, UpdateLinks:=False, ReadOnly:=ReadOnly

Workbooks.Open Filename:=InputFile, UpdateLinks:=True, ReadOnly:=ReadOnly