Sub Sample21() '「Sheet1」という名前のシートを一番最後のシートの後ろに移動します。 Worksheets("Sheet1").Move , Worksheets(Worksheets.Count) End Sub