I left the following line in the code which I was using during testing and
had commented out so don't use it.
( 'Rng1.EntireRow.Hidden = False)

Also edit the Worksheets("TestAutoFilt").Range("A4:A15") line and insert
your sheet number.