Sub LoopFolders()
Dim oFSO
Dim Folder As Object
Dim Files As Object
Dim file As Object

    Set oFSO = CreateObject("Scripting.FileSystemObject")

    Set Folder = oFSO.GetFolder("c:\MyTest")

    For Each file In Folder.Files
        If file.Type Like "*Microsoft Excel*" Then
            Workbooks.Open Filename:=file.Path
            '<<<<< run macro here on Activeworkbook
            Activeworkbook.Close SaveChanges:=False
        End If
    Next file
    Set oFSO = Nothing

End Sub

Sub OpenWorkbooks()
Dim oFSO
Dim Folder As Object
Dim Files As Object
Dim file As Object

'Modified macro from Bob Phillips
'Application.ScreenUpdating = False 'temporarily disabled

ThisWorkbook.Worksheets("INSTRUCTIONS").Activate 'select cells from 
"INSTRUCTIONS" workbook
   Cells.Copy 'copy all cells
           
     Set oFSO = CreateObject("Scripting.FileSystemObject")

     Set Folder = oFSO.GetFolder("U:\VBA\Test Folder")
                       
     'For Each file In Folder.Files
         If file.Type Like "*Microsoft Excel*" Then  'ERROR IS AT THIS LINE
             Workbooks.Open Filename:=file.Path
             '<<<<< run macro here on Activeworkbook
             
                Worksheets("INSTRUCTIONS").Activate 'select worksheet 
"INSTRUCTIONS"
                ActiveSheet.Paste 'paste cells from original worksheet
          
             ActiveWorkbook.Close SaveChanges:=True
         End If
     'Next file
     Set oFSO = Nothing

End Sub