Hide rows

[radlernyc]

I need to set myRowRange = Range("A" & lastline% : "A57"). In essence I need to hide rows Alastline to A57. The code is below. Thanks for all the help.

Sub hiderows()

Dim myRowRange As Range
    Dim myColRange As Range
    Dim cell As Range
    
   Sheets("peer").Select
    
    peernum% = Range("peernum")
    
    lastline% = 7 + peernum%
           
           
'   Hide rows with no data
'   Define which cells to look at to hide rows
    
    Sheets("data").Select
    
    Set myRowRange = Range("A" & lastline% : "A57")
    For Each cell In myRowRange
        If cell = 0 Then cell.EntireRow.Hidden = True
    Next cell
    

End Sub

 

[Von Pookie]

This work for you?

Sub hiderows()
Dim myRowRange As Range
Dim cell As Range
Dim peernum As Integer, lastline As Long
       
With Sheets("peer")
    peernum = .Range("peernum").Value
    lastline = 7 + peernum
End With
       
With Sheets("data")
    Set myRange = .Range("A57:A" & lastline)
    For Each cell In myRowRange
        If cell.Value = 0 Then cell.EntireRow.Hidden = True
    Next cell
End With

End Sub

 

[radlernyc]

Thanks for the help, but it is crapping out at line "For Each cell In myRowRange"

Thanks for all the help

 

[Von Pookie]

Oh, shoot. Sorry, myfault. I changed the variable name, but forgot to change it in that line.

Change myRange to myRowRange