Hi Ken,

Thanks for trying it out:-)

I've gone back to an earlier version and redone the changes and as you say
it runs fine.

The only thing I can remember doing was to try to change the VBA properties,
I was trying unsucessfully to password the code so that users couldn't alter
- don't know if that could have messed it up?

Thank you

--
Mifty


"Ken Johnson" wrote:

On Sep 1, 11:37 pm, Mifty wrote:
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

Works fine on mine. Is the Data sheet protected?

Ken Johnson