I have this macro that adjust lines accordingly to the # chosen in the drop down box (using data validation).
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
If Not Intersect(Target, Range("d1")) Is Nothing Then
Range("A10:A1793").EntireRow.Hidden = True
r...