Excel Forum

Code: Select all

Sub Print_List()
  Dim strValidationRange As String
    Dim rngValidation As Range
    Dim rngDepartment As Range

    Application.ScreenUpdating = False
  
    strValidationRange = Range("n4").Validation.Formula1
    Set rngValidation = Range(strValidationRange)
    
    For Each rngDepartment In rngValidation.Cells
        Range("n4").Value = rngDepartment.Value
        ActiveSheet.PrintOut
    Next
     
    Application.ScreenUpdating = True
End Sub

Code: Select all

Range("n4")

Code: Select all

Range("b4")