VBA检查是否存在工作表名称

Question

我有正确运行的代码，可以打开新的工作表（来自模板），并在主工作表中使用活动单元格的名称重命名它（A列中的公司名称）。

Sub HistorySupplies()

Dim wb As Workbook
Dim ws As Worksheet
Dim activeWB As Workbook
Dim FilePath As String
Dim ShtName As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set activeWB = Application.ActiveWorkbook
FilePath = "C:\Users\DELL\AppData\Roaming\Microsoft\Szablony\HistoriaDostaw1.xltm"

On Error Resume Next

ShtName = ActiveCell.Value2

Set wb = Application.Workbooks.Open(FilePath)
wb.Worksheets(1).Copy After:=activeWB.Sheets(activeWB.Sheets.Count)
activeWB.Activate

activeWB.Sheets(activeWB.Sheets.Count).Name = ShtName

wb.Close False

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

我需要的是：

1. 在添加新工作表之前检查工作表名称是否存在（意味着是否已创建给定公司模板中的工作表）
2. 如果有，则转到该表。如果没有，则根据上面的代码创建新工作表。
3. 请注意，公司名称列在A10及以下的单元格中，我现在不知道它们是什么。

我知道有多个类似的线程，但我不知道如何为我的代码实现工作表名称检查。