vba隱藏不要的行

如，當前單元格的內容是 5,6,7，則僅顯示5，6，7行，其餘行隱藏

Sub HIDE()
    Dim v As String, lines, i, firstLine, isFirstLine As Boolean
    
    v = ActiveCell.Value
    lines = Split(v, ",")
    ActiveSheet.Rows.Hidden = True
    isFirstLine = True
    For Each i In lines
        If isFirstLine Then
            firstLine = i
            isFirstLine = False
        End If
         ActiveSheet.Rows(i).Hidden = False
    Next
    Cells(firstLine, 1).Select
 End Sub

Sub UnHide()
    Rows.Hidden = False
End Sub