1. Every variable must be explicitly declared or it defaults to variant type
2. Quite should be Quit. Did you run debug compile?
3. Your looping code doesn't make sense to me.
4. Can only get code to copy between workbooks in same instance of Excel to work, as in the following:
Code:
Sub CopySheet()
Dim xl As Excel.Application, xlw1 As Excel.Workbook, xlw2 As Excel.Workbook
Dim x As Integer
Set xl = CreateObject("Excel.Application")
Set xlw2 = xl.Workbooks.Add
For x = 1 To 100
Set xlw1 = xl.Workbooks.Open("C:\path\filename.xlsx", , True)
xlw1.Sheets(1).Copy After:=xlw2.Sheets(xlw2.Sheets.Count)
xlw2.ActiveSheet.Name = "T" & x & Left(xlw1.Name, InStr(xlw1.Name, ".") - 1)
xlw1.Close
Next
xl.Visible = True
End Sub
5. I can manually open and close Excel while code is running and VBA Excel object remains not visible until the line to set visible.