Option Explicit

Sub ShowOnlyCertainRows()
Dim RowNums As Variant, LR As Long, Rw As Long

RowNums = Application.InputBox("Show which rows?", "Show", "1,10,11,100,101,102,150", Type:=2)
If RowNums = "False" Then Exit Sub

Application.ScreenUpdating = False
With ActiveSheet
    .UsedRange.Rows.Hidden = True       'hides all rows, doesn't work on AutoFilter
    RowNums = Split(RowNums, ",")
    
    For Rw = LBound(RowNums) To UBound(RowNums)
        .Rows(RowNums(Rw)).Hidden = False
    Next Rw
End With

Application.ScreenUpdating = True
End Sub