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

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

No.1 回答者： Mahk2 回答日時： 2004/12/10 00:00

VBAマクロですよね？参照URLのサイトにあるサンプルを関数にしてチェックした後で追加してはいかがでしょう？

ちなみにgoogleで「シート　追加　VBA　有無」で検索しました。

参考URL：http://www2.moug.net/cgi-bin/technic.cgi?exvba+T …

No.2 ベストアンサー 回答者： BLUEPIXY 回答日時： 2004/12/10 00:30

シートがあるか調べる関数を作ってみました。

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