Removing all rows that contain letters
I'm trying to remove all rows that contain letters, using a macro. I hope
this is easily possible. Thanks |
Removing all rows that contain letters
Dim rng as Range
On Error Resume Next set rng = Cells.SpecialCells(xlConstants,xlTextValues) rng.EntireRow.Delete set rng = Cells.SpecialCells(xlForulas,xlTextValues) rng.EntireRow.Delete On Error goto 0 -- Regards, Tom Ogilvy "fred" wrote in message ... I'm trying to remove all rows that contain letters, using a macro. I hope this is easily possible. Thanks |
Removing all rows that contain letters
here is a fixed version:
Sub DeleteRowsWithText() Dim rng As Range On Error Resume Next With ActiveSheet Set rng = .Cells.SpecialCells(xlConstants, xlTextValues) Intersect(rng.EntireRow, .Rows).Delete Set rng = .Cells.SpecialCells(xlFormulas, xlTextValues) Intersect(rng.EntireRow, .Rows).Delete End With On Error GoTo 0 End Sub -- Regards, Tom Ogilvy "Tom Ogilvy" wrote in message ... Dim rng as Range On Error Resume Next set rng = Cells.SpecialCells(xlConstants,xlTextValues) rng.EntireRow.Delete set rng = Cells.SpecialCells(xlForulas,xlTextValues) rng.EntireRow.Delete On Error goto 0 -- Regards, Tom Ogilvy "fred" wrote in message ... I'm trying to remove all rows that contain letters, using a macro. I hope this is easily possible. Thanks |
All times are GMT +1. The time now is 12:31 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com