Duplicate Workbook, change 1 cell and save with name according cell

See if this can do

Please Login or Register  to view this content.

Kind regards
Leo

Hi Leo,

Thanks for your help.

I changed the code a little bit because it was not copying all the sheets and I was loosing the Data Validation drop-down lists. But I used your code as structure

Here is the final code I'm using:

Sub Copy()
Application.ScreenUpdating = False
With Sheets("MACRO")
lr = .Range("B" & .Rows.Count).End(xlUp).Row
For x = 5 To lr
Sheets("Log").Range("B2") = Sheets("MACRO").Range("B" & x)
Worksheets("Drop Downs").Visible = False
Worksheets("MACRO").Visible = False
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & Format(.Range("B" & x), "yyyy-mm-dd") & ".xlsm"), FileFormat:=52
Next
End With
End Sub

Thanks a lot!

Luisa