Macro to select a specific number of rows (below the header row) based on value in another cell

[lifesgood]

I'd like to select a specific number of cells in Sheet3 based on the count available in cell Z1 in Sheet2. The below code is somewhat of help, but not completely. The data in Sheet3 is a filtered range and I'd like to select only the visible cells (based on the count provided in Z1) below the header column in Sheet 3. Thanks in advance!
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">Sheets("Sheet3").Range("A1:X" & Sheets("Sheet2").Range("Z1").Value).Select
</code>

 

[AlphaFrog]

There might be a more elegant way, but this seems to work.

    Dim z As Long, i As Long, cell As Range
    
    z = Sheets("Sheet2").Range("Z1").Value
    With Sheets("Sheet3")
        With .Range("A2", .Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
            For Each cell In .Cells
                i = i + 1
                If i = z Or i = .Count Then Exit For
            Next cell
        End With
        .Range("A2:X" & cell.Row).Select
    End With

 

[lifesgood]

Wow! That works like a charm @AlphaFrog! Thank you so much!!