Home |
Search |
Today's Posts |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Many Thanks Marcus - Have a great week
Roger "marcus" wrote: Hi Roger Here is the procedure which will work only on those sheets which start with 'St' Adjust to suit. If you have sheets you don't want it to work on which do start with St let us know. Take care Marcus Option Explicit Option Compare Text Sub DelBlankColB() Dim lw As Integer Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets If Left(ws.Name, 2) = "St" Then lw = ws.Range("B" & Rows.Count).End(xlUp).Row ws.Range("B1:B" & lw).SpecialCells (xlCellTypeBlanks).EntireRow.Delete End If Next ws End Sub . |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Deleting empty rows | New Users to Excel | |||
Deleting Empty Rows | Excel Programming | |||
Deleting empty rows | Excel Programming | |||
Deleting non empty rows | Excel Programming | |||
Deleting empty rows | Excel Programming |