Iterate through Data Validation List - vba

Question

i created a button which is this macro on it:
Sub loopthroughvalidationlist()
Dim inputRange As Range
Dim c As Range
Set inputRange = Evaluate(Range("A9").Validation.Formula1)
path = "C:\test\"
For Each c In inputRange
filename1 = Range("B18").Text
ActiveWorkbook.SaveCopyAs filename:=path & filename1 & ".xlsm"
Next c
End Sub
the list of the validation contains about 5 names. but for some reason it only saves 1 file.

Answer 1

As far as you are not having problems with accessing the data validation list, I have hardcoded it in Range("A1:A5").
I have changed ActiveWorkbook with ThisWorkbook to see how it works as well.
-ThisWorkbook.Save is needed to produce valid .FullName and valid .Path
The tricky part is to save the oldPathFull and the oldPath of the excel file and to use ThisWorkbook.SaveAs oldPathFull on every loop.
Application.DisplayAlerts = False disables the Excel prompts. You can put it outside the loop, if you feel like it.
Sub LoopThroughValidationList()
Dim inputRange As Range
Dim c As Range
Dim oldPathFull As String
Dim oldPath As String
Set inputRange = Range("A1:A5")
ThisWorkbook.Save
oldPathFull = ThisWorkbook.FullName
oldPath = ThisWorkbook.Path & "\"
For Each c In inputRange
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs Filename:=oldPath & c & ".xlsb"
ThisWorkbook.SaveAs oldPathFull
Application.DisplayAlerts = True
Next c
End Sub
Once you are able to get the code running with predefined values, this is a [MCVE] example how to get the data validation values of a cell B1:
Public Sub TestMe()
Dim myCell As Range
Dim valRules As Range
Set valRules = Evaluate(Range("A1").Validation.Formula1)
For Each myCell In valRules
Range("A1") = myCell
Debug.Print Range("A1")
Next myCell
End Sub