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