Deleate worksheet based on worksheet name

[NichoD]

hello, I have a workbook with worksheets named after dates. I want to deleate all worksheets older than the first day of the last month. How would you suggest I do it? This is my current code.


Sub test()

Dim date1 As Date
Dim date2 As Date
Dim dd As Date
Dim ws As Worksheet

date1 = DateSerial(Year(Date), Month(Date) - 1, 1)
date2 = Date


For dd = date1 To date2
Debug.Print Format(dd, "YYMMDD")

Next dd

'For Each ws In Worksheets
'
'If not ws.Name = dd Then
' ws.Delete
' End If
'Next ws


End Sub

 

[Sparcot]

Hi there, If I got you right your worksheets names are like "DDMMYY".

Enjoy:

Sub test()
    Dim firstDayOfPreviousMonth As Date
    Dim testDate As Date
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    firstDayOfPreviousMonth = DateSerial(Year(Date), Month(Date) - 1, 1)
    For Each Worksheet In ThisWorkbook.Worksheets
        testDate = DateSerial(CInt(Left(Worksheet.Name, 2)), CInt(Mid(Worksheet.Name, 3, 2)), CInt(Right(Worksheet.Name, 2)))
        If testDate < firstDayOfPreviousMonth Then
            Worksheet.Delete
        End If
    Next Worksheet
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

 

[NichoD]

Thank you so much!!