Hello,

I am trying to copy over a range of sheets from one workbook to
another but there is an error in my VBA statement.
Could someone tell me what is going wrong?

'Copy Trial Balances worksheet

ChDir "H:\Risk_Management\BarraOne\ConsistancyCheck\Flas h Report
Files"
Workbooks.Open Filename:= _
"H:\Risk_Management\BarraOne\ConsistancyCheck\Flas h Report
Files\Trials.xls"

For Each sh In ThisWorkbook.Sheets
If sh.Name < "" Then
sh.Copy
Selection.Copy
After:=Workbooks("ConsistancyTemplate.xls").Sheets ("Summary")
Windows("Trials.xls").Activate
ActiveWindow.Close



Many thanks!

Rgds,
Robert