Dai aiuto!! ci sono quasi..mi resta solo incollare i fogli copiati ecco il codice:


Sub Mover()

Dim WB1, WB2, WB3 As Excel.Workbook
Dim SH1WB1, SH2WB1, SH3WB1, SH1WB2, SH2WB2, SH3WB2, SH1WB3, SH2WB3, SH3WB3 As Excel.Worksheet

Dim obEx1, obEx2, obEx3 As Excel.Application

Set obEx1 = New Excel.Application
Set obEx2 = New Excel.Application
Set obEx3 = New Excel.Application

Set WB3 = obEx3.Workbooks.Open("D:\Test.xls") 'Workbooks("Test.xls")

Set WB1 = obEx1.Workbooks.Open("D:\Book3.xls") 'Workbooks("Book1.xls")
Set SH1WB1 = WB1.Sheets("Sheet1")
Set SH2WB1 = WB1.Sheets("Sheet2")
Set SH3WB1 = WB1.Sheets("Sheet3")

Set WB2 = obEx2.Workbooks.Open("D:\Book2.xls") 'Workbooks("Book2.xls")
Set SH1WB2 = WB2.Sheets("Sheet1")
Set SH2WB2 = WB2.Sheets("Sheet2")
Set SH3WB2 = WB2.Sheets("Sheet3")




With WB3
SH1WB1.Copy Before:=.Sheets(.Sheets.Count)
SH2WB1.Copy Before:=.Sheets(.Sheets.Count)
SH3WB1.Copy Before:=.Sheets(.Sheets.Count)
SH1WB2.Copy Before:=.Sheets(.Sheets.Count)
SH2WB2.Copy Before:=.Sheets(.Sheets.Count)
SH3WB2.Copy Before:=.Sheets(.Sheets.Count)
End With


End Sub


MA va in errore nel blocco
With WB3
SH1WB1.Copy Before:=.Sheets(.Sheets.Count)
SH2WB1.Copy Before:=.Sheets(.Sheets.Count)
SH3WB1.Copy Before:=.Sheets(.Sheets.Count)
SH1WB2.Copy Before:=.Sheets(.Sheets.Count)
SH2WB2.Copy Before:=.Sheets(.Sheets.Count)
SH3WB2.Copy Before:=.Sheets(.Sheets.Count)
End With



Mi viene da piangere!