Как выбрать лист с помощью переменной даты?

Question

Я пытался выбрать и удалить лист, используя эту переменную szTodayDate, но я продолжаю получать ошибку времени выполнения 9.

Option Explicit
Dim szTodayDate As String

Public Sub AddSheetsTodayDate()

    szTodayDate = Format(Date, "dd-mmm-yy")

    On Error GoTo MakeSheet
    Sheets(szTodayDate).Activate
    Exit Sub
MakeSheet:
    Sheets.Add , Worksheets(Worksheets.Count)
    ActiveSheet.Name = szTodayDate

End Sub

Public Sub RecordProgress()
    Worksheets(szTodayDate).Select  
End Sub

Answer 1

Это будет работать для вас:

Я использовал Evaluate, как упомянуто Рори в этом Ответе , чтобы проверить, существует ли лист.

Option Explicit
Public szTodayDate As String

Public Sub AddSheetsTodayDate()

    Dim WorksheetExists As Boolean
    Dim ws As Worksheet

        szTodayDate = format(Now, "dd-mmm-yy")
        WorksheetExists = Evaluate("ISREF('" & szTodayDate & "'!A1)")

    If Not WorksheetExists Then

        Sheets.Add , Worksheets(Worksheets.Count)
        ActiveSheet.Name = szTodayDate

    Else: Sheets(szTodayDate).Activate

    End If

End Sub

Public Sub RecordProgress()
    Worksheets(szTodayDate).Select  
End Sub

Answer 2

Проблема с вашей декларацией szTodayDate.Измените его на:
Public szTodayDate As String