Private Sub CommandButton1_Click()
Dim sL$, tL, i%
sL = TextBox1
If sL = "" Then Exit Sub
If InStr(1, sL, "-") > 0 Then
tL = Split(sL, "-")
If Val(tL(0)) > 0 And Val(tL(1)) > 0 Then
Range(Cells(Val(tL(0)), 1), Cells(Val(tL(1)),
1)).EntireRow.Hidden = True
End If
Else
tL = Split(sL, ",")
For i = 0 To UBound(tL)
On Error Resume Next
Rows(tL(i)).Hidden = True
On Error GoTo 0
Next
End If
Unload Me
End Sub