Hi Jim,

Just the ticket. Worked a treat, thanks a lot.

Ron




wrote in
:

Code in a sheet always defaults to the sheet that it is in. Code in a
module defaults to the active sheet. As a guess that is where your
code is messing up...

with Sheet1
.Range(.Cells(Rows.count, "A").End(xlUp).Offset(-1, 0), _
.Cells(Rows.count, "A").End(xlUp).Offset(-9, 0)).EntireRow.Hidden =
True end with

Note I have added dots before Cells so that the reference is
explicilty to Sheet1