vba - VBAでセル名に基づいてワークシートを開く

Question

Stack Overflow に投稿するのは初めてです。VBA を使用して、シート 1 のセル値に基づいて新しいワークシートを作成しようとしています。ただし、シートが既に存在する場合は、代わりにそのシートを開く必要があります。実際にシートの名前がわからないので、これに苦労しています。カウンターを使用して、プロジェクトの名前を格納する別のシートを作成すれば、これができると思いました。実行時エラー 91 が表示されます。これが現在のコードです。

Public Sub DailyReport()

Dim project As Range
project = Worksheets("Target Flow").Range("B3")

Dim i As Integer
i = 1

If Worksheets("Target Flow").Range("B3") <> 
Worksheets("Projects").Cells(1000, 1).Value Then

Worksheets("Target Flow").Range("B3").Select
Selection.Copy

Worksheets("Projects").Activate
Cells(i, 1).Select
ActiveSheet.Paste


Dim WS As Worksheet
Set WS = Sheets.Add(After:=Sheets(Worksheets.Count))

WS.Name = project.Value

i = i + 1

Else

Worksheets("Target Flow").Activate
Worksheets(ActiveSheet.Range("B3").Value).Activate

End If

End Sub

誰かが私を正しい方向に導くことができれば、私は感謝しています!!