mostrar filas ocultas

Muestra todas las filas ocultas de una hoja especifica y de un rango de filas entre 1 y 1000.


Application.ScreenUpdating = False
Sheets("nombre hoja").Select
Rows("1:1000").Select
Selection.EntireRow.Hidden = False
Range("a1").Select
Application.ScreenUpdating = True