Sub LoopThroughList()
Dim Dropdown1, Dropdown2, Dropdown3, Dropdown4 As String
Dim Range1, Range2, Range3, Range4 As Range
Dim option1, option2, option3 As Range
Dim Counter As Long
Counter = 1
Set Range1 = Evaluate(Range("B3").Validation.Formula1)
Set Range2 = Evaluate(Range("H3").Validation.Formula1)
Set Range3 = Evaluate(Range("B9").Validation.Formula1)
Set Range4 = Evaluate(Range("H9").Validation.Formula1)
For Each option1 In Range1
For Each option2 In Range2
For Each option3 In Range3
For Each option4 In Range4
Sheets(2).Cells(Counter, 1) = option1
Sheets(2).Cells(Counter, 2) = option2
Sheets(2).Cells(Counter, 3) = option3
Sheets(2).Cells(Counter, 4) = option4
Counter = Counter + 1
Debug.Print option1, option2, option3, option4
'Debug.Print option1, option2, option3
Next option4
Next option3
Next option2
Next option1
End Sub
This code does what I want. How can I improve it?
Instead of Debug.Print I would like to do a vlookup in VBA?