Как я могу открыть определенный лист с именем через месяц?

Question

У меня есть несколько вкладок месяца

Как открыть конкретный способ с помощью VBA? Я попытался использовать этот фрагмент:

Private Sub Workbook_Open()

Dim ws As Worksheet
Dim mnth As String, dte As String, mday As String

mday = Now() - Weekday(Now(), 3)

mnth = Month(mday)
dte = Day(mday)

tabstr = mnth & "-" & dte

   For Each ws In Worksheets
       If ws.Name = tabstr Then
           ws.Select
           Exit For
       End If
    Next 
End sub

но это для имен листов, которые названы в честь дат в формате mm-dd , например, "11-7" или "11-14".

Как изменить этот код, чтобы он работал для имен листов, которые содержат названия месяцев, такие как "май", "июнь" или "июль"?

Answer 1

Чтобы автоматически вывести вкладку текущего месяца на передний план после открытия книги, вы можете просто использовать это:

Private Sub Workbook_Open()
    Sheets(Format(Now(), "mmmm")).Select
End Sub

ПРИМЕЧАНИЕ. Это будет работать только в том случае, если названия месяцев написаны на том же языке, что и ОС.

Answer 2

Чтобы получить название текущего месяца:

Sub tretdc()
    tabstr = Format(Now(), "mmmm")
    MsgBox tabstr
End Sub