Excel VisualBasic Script

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