Oops! Just noticed the typo. The differences are 6, not 2.

Range("63:147").EntireRow.Hidden = True
k = CLng(Range("L62"))
Select Case k
Case 1 to 14
Row(63:63).Resize(6*k).Hidden = False
End Select

Dana DeLouis


<snip