WorkSheets.Add 任意の名前のシートがないときだけ

質問

"test"という名前のワークシートがあるときは追加しないで、
ないときだけシートを追加したいんですが、そんな方法ありますか？

回答No.2

BLUEPIXY · ベストアンサー

シートがあるか調べる関数を作ってみました。
Public Function SheetExists(name As String) As Boolean
Dim x As Worksheet
SheetExists = False
For Each x In Sheets
If StrComp(x.name, name, vbTextCompare) = 0 Then SheetExists = True: Exit Function
Next
End Function
使い方
If Not SheetExists("test") Then
Sheets.Add(after:=Sheets(Sheets.Count)).name = "test"
End If

回答No.1

Mahk2

VBAマクロですよね？参照URLのサイトにあるサンプルを関数にしてチェックした後で追加してはいかがでしょう？
ちなみにgoogleで「シート　追加　VBA　有無」で検索しました。

参考URL：

http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI04010038