Print all items in a combo box

[mbtaichi]

Hi,
I have a combo box in cell B2 with a list of names.
Is there a Vba code to loop through the list, update the sheet from the combo box and print the worksheet.
I have over 100 names in the list and would like to run though the list updating the sheets and printing all.
Thanks

 

[shknbk2]

With a little guidance from https://stackoverflow.com/questions/51170356/excel-vba-for-each-loop-with-data-validation-lists

Sub LoopThroughDropdownAndPrint()
    Dim validationRange As Range
    Dim dropDownCell As Range
    
    Set dropDownCell = Range("B2")
   
    On Error Resume Next
    Set validationRange = Evaluate(dropDownCell.Validation.Formula1)
    On Error GoTo 0
    If Not validationRange Is Nothing Then
        'Validation list is based on a range
        Dim c As Range
        For Each c In validationRange
            dropDownCell.Value = c.Value
            ActiveSheet.PrintOut
        Next
    Else
         'Validation list is based on a fixed string
        Dim a As Variant, i As Integer
        a = Split(dropDownCell.Validation.Formula1, ",")
        For i = 0 To UBound(a)
            dropDownCell.Value = a(i)
            ActiveSheet.PrintOut
        Next
    End If
End Sub