Workbooks("1.xls").Activate
Worksheets("Sheet1").Select
これを1行で記述する方法はありますか?