excel vba シートの追加

質問

excel vba にてシートを以下の条件で追加したいのですが、
両方を同時に行うことができません。ご教授下さい。

・　シート名を、”新シート”にしたい。
・　既存シートAAA.sheetの後ろに、追加したい。

以上、宜しくお願い致します。

回答No.3

myRange · ベストアンサー

＞両方を同時に行うことができません

同時にとは、一行のコードでということですか？
なら、以下のように。。。

Sheets.Add(after:=Sheets("AAA")).Name = "新シート"

以上です。

回答No.4

tom04

こんばんは！
ごくごく単純にやってみました。

Sub test()
Worksheets.Add , after:=Worksheets("AAA")
ActiveSheet.Name = "新シート"
End Sub

こんな感じではどうでしょうか？m(__)m

回答No.2

某HN クロメート(Chromate)（@CoalTar）

勉強がてらやってみました
Sub シートを追加する()
　　　Dim n As Integer
　　　Const Sname As String = "新シート"
　　　For n = 1 To Worksheets.Count
　　　　　　If Worksheets(n).Name = Sname Then Exit Sub
　　　Next n
　　　Worksheets.Add After:=Sheets("AAA")
　　　ActiveSheet.Name = Sname
End Sub

回答No.1

YUKKER

こんな感じはいかがでしょうか。

Dim wSheet As Worksheet

With ThisWorkbook
Set wSheet = .Worksheets.Add()
wSheet.Name = "新シート"
wSheet.Move after:=.Worksheets(.Worksheets.Count)
End With