Select the rows before and after the hidden rows, and right click. Select
Unhide. They will be restored. You can then delete them as you would any
other row.
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
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.