VBA for Printing from Drop Down List

[soggy40]

I have been trying to create a VBA from command button that allows me to print all from a drop down list (one sheet per item on the drop down list). I am at this point but have an error and can't figure it out.

Any help greatfully received

Private Sub CommandButton1_Click()
Sub Iterate_Through_data_Validation()
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Set xRg = Worksheets("Summer - Revision").Range("C1")
Set xRgVList = Evaluate(xRg.Validation.Formula1)
For Each xCell In xRgVList
xRg = xCell.Value
ActiveSheet.PrintOut
Next
End Sub

 

[Johnny C]

What and where is the error occuring?

You get xRg as a value but you're just printing the same sheet each time. If you want it to cycle through the data validation items in cell C1 you'd need

xRg.Value = xCell.Value

You set xRg to C1 as a range, but then the loop resets the value of the variable xRg to the value in the data validation list, you're not putting xCell.Value into the xRg range value if that makes sense

HTH