HOME > 即効テクニック > Excel VBA > シート操作関連のテクニック > 同じブック内のシートをコピーしたシートを追加する

即効テクニック

シート操作関連のテクニック

同じブック内のシートをコピーしたシートを追加する

(Excel 97)
インプットボックスで指定されたシートをコピーして、その直前にシート「newSheet」を追加します。
Sub Sample()

 Dim SheetName As String
    
 SheetName = Application.InputBox("コピーするシート名を指定してください", _
               "シート名", Type:=2)
 ActiveSheet.Copy Before:=Sheets(SheetName)
 ActiveSheet.Name = "newSheet"

End Sub