У меня есть лист Excel со списком проверки данных на нем, и мне нужно экспортировать каждую запись из списка на другой лист в новой папке, чтобы архивировать ее, например

Question

У меня есть файл Excel со списком проверки данных. Начиная с L2 эта ячейка связана с другим листом в том же листе, но мне нужно отделить каждую запись из списка в новый файл Excel с исчезновением xls

я пробую этот код, но он экспортирует все листы в файл, а не в файлы xls

Sub loopthroughvalidationlist()

    Dim inputRange As Range
    Dim c As Range
    Set inputRange = Evaluate(Range("L2").Validation.Formula1)

    For Each c In inputRange
        Cells(2, "L").Value = c.Value
        Dim s As String
        s = Cells(2, "L").Value & "Report"
        ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "/" & s
    Next c

End Sub