Sub move() Workbooks("Planning.xls").Sheets("Homes").Move , _ Before:=Workbooks("Building Schedule.xls").Sheets(1)End Sub