Hi everyone,

I'm getting a runtime error that bugs out *
Application.ScreenUpdating = False
Sheets("Data").Select
Application.Goto Reference:="R1C1:R25C7"

Selection.EntireRow.Hidden = False 'bugs out here *
Range("A12:A13").Select
Selection.EntireRow.Hidden = True
Range("A16:A17").Select
Selection.EntireRow.Hidden = True

If I comment out that line it gets as far as the next entirerow etc - it was
working before and I've changed by adding the hidden false line to make sure
that there are not already hidden rows in the range. I've got a separate
reset macro but it makes things slow and can't rely on everyone to use it.

Thank you


--
Mifty