Because XL 97 works differently when you do an offset with a discontinuous
range.

--
Regards,
Tom Ogilvy

Stu wrote in message
...
Why do some of these not work in XL 97? Is there any reason for that?
Buts its ok to me seeing as I use XL2002.

Thanks
--
Stu


"Tom Ogilvy" wrote in message
...
Note that this won't work in Excel 97. May not be an issue, but
important
to know.

--
Regards,
Tom Ogilvy

Dana DeLouis wrote in message
...
Not sure if it's faster, but would any ideas here help? I hope I got
the
logic right.

Sub YearHide()
'// Dana DeLouis
'// If a cell is blank, hide the row below

Dim rng As Range
Dim Remember As Boolean
Dim nRows As Long '# of Rows per area

Remember = Application.ScreenUpdating
Application.ScreenUpdating = False

On Error Resume Next
For Each rng In
Range("B3,B28,B52,B76,B100,B124,B148,B172,B196,B22 0,B244,B268").Cells
nRows = IIf(rng.Row = 3, 19, 18)
rng.Resize(nRows + 1).EntireRow.Hidden = False
rng.Resize(nRows).SpecialCells(xlCellTypeBlanks).O ffset(1,
0).EntireRow.Hidden = True
Next rng

Application.ScreenUpdating = Remember
End Sub

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"Stu" wrote in message
...
Hey guys, I have some more code that takes its time being ran, any
ideas
on
how to speed it up?

Here's the code:

Sub Year()

Dim Rng As Range
For Each Rng In




Range("B3:B21,B28:B45,B52:B69,B76:B93,B100:B117,B1 24:B141,B148:B165,B172:B18
9,B196:B213,B220:B237,B244:B261,B268:B285")
Rng(2, 1).EntireRow.Hidden = (Rng.Value = "")
Next Rng

End Sub

Thanks
---
Stu