Check om der er et faneblad med dato

Er det arkene, der er navngivet med dato? I så fald kan du gøre:

************
    Dim objWS As Worksheet
    Dim i As Integer
   
    For i = -1 To -7 Step -1
        On Error Resume Next
        Set objWS = ActiveWorkbook.Sheets(CStr(DateAdd("d", i, Date)))
        On Error GoTo 0
       
        If Not objWS Is Nothing Then Exit For
    Next i
**************

Du kan selv ændre -7 til det antal dage, som du ønsker, at den skal gå tilbage.

Super mange tak for dette

UPS mangler svar tak

Kommer her :-)