Thread
:
Macro that deletes rows from cell containing End to end of data.
View Single Post
#
3
Posted to microsoft.public.excel.misc
Don Guillett
external usenet poster
Posts: 10,124
Macro that deletes rows from cell containing End to end of data.
try this simple ditty
sub delrows()
fr=columns(1).find("End").row
lr=cells(rows.count,"a").end(xlup).row
rows(fr & ":" & lr).delete
end sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Richard" wrote in message
...
MS OS XP:
Excel 2000:
Need a macro that deletes all rows from the end of data up to a cell in
Colum A that contains the word End.
Example: If cell A(150) = End Then
Delete all rows from the end of data up to and including row 150.
Thanks in advanced,
--
Richard
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett