|
|
#7
11-18-2018, 01:15 PM
|
|||
|
|||
a possible option
Code:
Sub Delete_Blank_C_Rows_From_Selection()
Dim rng As Range
Set rng = Intersect(Columns(3), Selection)
If Not rng Is Nothing Then
On Error Resume Next 'in case nothing to delete
rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0 're-enable error notification
End If
End Sub
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Conditional Formatting Individual Rows in a range
|
Phil H | Excel | 3 | 11-05-2018 12:09 PM |
|
Import a specific range (bookmarked section) from all Word docs in a selected folder
|
Greengecko | Word VBA | 5 | 06-14-2016 07:54 AM |
| Find and Delete Rows based on a range | damaniam | Excel Programming | 2 | 03-12-2014 06:06 AM |
|
How to remove blank rows from a specified range?
|
Learner7 | Excel | 1 | 04-19-2011 02:45 AM |
| Temporarily show/hide selected table rows | glricht | Word Tables | 0 | 12-29-2009 05:40 AM |
Windows 7 64bit 
Office 2010 64bit
Threaded Mode