【VBA】ForEach-If-Else文のworksheets.add処理動作

Question

VBA処理中にシートをチェックして
存在する場合は中身を空白に
存在しない場合はシートを1枚だけ新規作成をする
と言う処理をしたいです。

存在する場合は問題なく処理されるのですが
存在しない場合のシートの新規作成が1枚ではなく2枚出てしまいます。
※ブックを開いた時点、VBA処理前はブック内にシートが2つあります。

For Each sheetAB In ThisWorkbook.Worksheets
If sheetAB.Name = checksheet Then
Application.DisplayAlerts = False
Worksheets(checksheet).Cells.Clear
Application.DisplayAlerts = True
Else
workSheets.Add After:=Worksheets(Worksheets.Count), Count:=1
End If

※countを2にすればシートの新規作成が4枚になります

恐らくですがForEach-IFの所で開いているブックの全てのシートが選択されてしまって
addで新規作成をするとシート2枚選択中*1枚作成→シート合計2枚新規作成
という流れになってしまっていると思っているのですが

シート2枚選択中の状態を解除する方法が見つからず
シートを1枚だけ出したいのに出せない状況です。

elseのすぐ下、addの間に
active、select、setを使ってシート2枚選択中の解除を試みましたが
解除されていないようで結果変わらずシート合計2枚新規作成されます。

新規作成を1枚だけにする方法
もしくは、複数枚選択中のシートを解除する方法のどちらか
知恵をお借りできますでしょうか

Comments

[meg_]

コードは「コードの挿入」で記入しましょう。

Answer 1

解決済みとのことですが、ご参考まで。

    For Each sheetAB In ThisWorkbook.Worksheets
        If sheetAB.Name = checksheet Then Exit For
    Next
    If sheetAB Is Nothing Then Set sheetAB = Worksheets.Add(After:=Worksheets(Worksheets.Count), Count:=1)
    sheetAB.Cells.Clear
   'sheetAB.Name = checksheet

Answer 2

IF文の中に判別式を設けて一旦IF文を終わらせてから
再度別のIF文を使って合計2つのIF文を作れば
シートの選択およびシートの新規作成が想定とおりの挙動をしました。

閲覧いただいた方ありがとうございました。