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
(e-mail address removed)
Replace @mailinator.com with @tiscali.co.uk