Sheet dynamisch maken lukt mij niet

[MEradus]

Hallo,

Onderstaande code heb ik opgenomen in excel, alleen ik krijg het niet voormekaar om de worksheet dynamisch te krijgen.
Deze krijgt namelijk elke dag een andere naam.

Ik hoop dat iemand mij kan helpen!

    Selection.AutoFilter
    ActiveWorkbook.Worksheets("08mei LWD").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("08mei LWD").AutoFilter.Sort.SortFields.Add Key:= _
        Range("B1:B163"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("08mei LWD").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.AutoFilter

 

[HSV]

Probeer het zo eens.

ActiveWorkbook.Worksheets(format(date,"ddmmm")&" LWD")

 

[MEradus]

Bedankt, ook deze ga ik zo testen!!

 

[MEradus]

Werkt ook goed, dank je wel!!!