I assume that your subjets was going to say "without restroring the row" but
it has been truncated. If that is what you want try this Macro:

Sub DeleteIt()
For rRow = 200 To 1 Step -1
' Change the 200 to your highest row number
If Cells(rRow, 1).EntireRow.Hidden = True Then
Cells(rRow, 1).EntireRow.Delete
End If
Next rRow
End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Ian@DSL" wrote in message
...
I've hidden rows in an Excel spreadsheet, and now want to delete them.
However I can't find a way to do this. Any advice ?