Macro to find and delete rows!

  • Thread starter Thread starter Heather O'Malley
  • Start date Start date
H

Heather O'Malley

I am trying to find and delete specific rows in a spreadsheet, however the reference I=
=E2=80=99m looking for e.g. 800411 is not always going to be in the spreadsheet, so my=
macro is not working on all occasions =E2=80=93 any ideas how I can overcome this.

Macro so far: =


Sheets("top10month").SelectCells.Find(What:=3D"800411", After:=3DActiveC=
ell, LookIn:=3DxlFormulas, LookAt _
:=3DxlPart, SearchOrder:=3DxlByRows, SearchDirection:=3DxlNext, MatchCase:=
=3D _
False, SearchFormat:=3DFalse).Activate
ActiveCell.Rows("1:1").EntireRow.Select
Application.CutCopyMode =3D False
Selection.Delete Shift:=3DxlUp
ActiveCell.Select
=

Any help is appreciated this is a great forum for beginners like me! Thanks
 
Dim FoundCell as Range
with Worksheets("Top10Month")
set foundcell = .cells.find(What:="800411", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
if foundcell is nothing then
'not found
else
foundcell.entirerow.delete
end if
end with
 
Back
Top