Would this idea work? This just does Rows 1:10

Private Sub Worksheet_Activate()
Const LastGoodRow = 10
Range(Cells(LastGoodRow + 1, 1), Cells(Rows.Count, 1)).EntireRow.Hidden
= True
ActiveSheet.ScrollArea = Rows(1).Resize(LastGoodRow).Address
End Sub

- -
HTH
Dana DeLouis


wrote in message
...
Is it possible to remove rows beyond 200 from a worksheet. If I can
then the rest of my problem goes away. Have tried quite a few ideas no
luck so far. My idea is a macro that will do this and run it befor I
proceed.