| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Delete 3 end row
Oops...Missed to delete..
Sub MyMacro() Dim lngLastRow As Long lngLastRow = ActiveSheet.Cells.Find(What:="*", _ SearchDirection:=xlPrevious, SearchOrder:=xlRows).Row Rows(lngLastRow).Offset(-2).Resize(3).Delete End Sub -- Jacob (MVP - Excel) "climate" wrote: Hi I want to delete three end row of any sheet. any sheet has different row number. Thank's for any help. your's |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| delete the test values, but do not delete the formulas | Excel Discussion (Misc queries) | |||
| How to Delete a Range in Closed Workbook (to Replace Delete Query) | Excel Discussion (Misc queries) | |||
| How do i delete a macro in Excel 2003 when delete isn't highlight | Excel Discussion (Misc queries) | |||
| How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions | |||
Hybrid Mode
