Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your "Activity" sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Since the drop down list was in cell C24, I based the macro on that cell. Change it to C25 if the drop down is in cell C25. Close the code window to return to your sheet. make a selection in the drop down list.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C24")) Is Nothing Then Exit Sub
Dim foundLevel As Range, x As Long, y As Long: y = 1
Set foundLevel = Range("B19:B22").Find(Target, LookIn:=xlValues, lookat:=xlWhole)
If Not foundLevel Is Nothing Then
For x = foundLevel.Offset(0, 1).Value To Range("E" & foundLevel.Row).Value Step 10
Cells(1, y) = x
Cells(1, y).AutoFill Destination:=Cells(1, y).Resize(10), Type:=xlFillSeries
y = y + 1
Next x
End If
End Sub
Bookmarks