I have tried and tried to set up a macro to find and delete the next 8 lines within the spreadsheet. Nothing seems to work! Below is the Macro. Can anybody fix this or tell me what I am doing wrong? The Macro quits after the first search. It acts like it is operating as an absolute but I tried changing it to relative by pressing the relative/absolute button and get the same thing. I am running an old version of Windows NT service pack 6. Below is the macro:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 9/7/2004 by Marcia Black
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
Cells.Find(What:="Examination Mgmt Services Inc", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Activate
ActiveCell.Rows("1:8").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Rows("1:8").EntireRow.Select
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 9/7/2004 by Marcia Black
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
Cells.Find(What:="Examination Mgmt Services Inc", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Activate
ActiveCell.Rows("1:8").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Rows("1:8").EntireRow.Select
End Sub