Pete
11-07-2008, 02:33 AM
see attached file
Hi
Need to amend the current macro to remove the data in worksheet"Sheet1" from row 851:903 columns B:F i.e remove guernsay from the data.
The end result being the same table as worksheet 2 minus Guernsay from the list
i have made one attempt but i feel something is missing from the following vba code...
Sub Edit_Guernsey()
Application.ScreenUpdating = False
Cells.Find(What:="Guernsey", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("B851:F903").Select
Rows("851:903").Select
Selection.Delete Shift:=xlUp
Range("B851").Select
Application.ScreenUpdating = True
End Sub
Hi
Need to amend the current macro to remove the data in worksheet"Sheet1" from row 851:903 columns B:F i.e remove guernsay from the data.
The end result being the same table as worksheet 2 minus Guernsay from the list
i have made one attempt but i feel something is missing from the following vba code...
Sub Edit_Guernsey()
Application.ScreenUpdating = False
Cells.Find(What:="Guernsey", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("B851:F903").Select
Rows("851:903").Select
Selection.Delete Shift:=xlUp
Range("B851").Select
Application.ScreenUpdating = True
End Sub