lazyandsenile
New Member
- Joined
- Mar 27, 2018
- Messages
- 2
Hello,
I have been trying a lot of different methods to achieve the desired result however close but no cigar.
The code below does what I need but I have an infinite loop which results in a run-time error.
The end goal in to find all the blank cells in table range "GRNSTATE" and then delete the entire row.
Any help on this would be legendary. This is the last piece to complete my spreadsheet.
Thank you in advance.
I have been trying a lot of different methods to achieve the desired result however close but no cigar.
The code below does what I need but I have an infinite loop which results in a run-time error.
Sub DeleteBlankTesting()
' This code deletes empty rows if GRNSTATE is empty. Error to end loop
Sheets("GREEN ATMS").Select
Do While Not IsEmpty("GRNSTATE")
Range("GRNSTATE").SpecialCells(xlCellTypeBlanks).Select
ActiveCell.EntireRow.Delete
Loop
End Sub
The end goal in to find all the blank cells in table range "GRNSTATE" and then delete the entire row.
Any help on this would be legendary. This is the last piece to complete my spreadsheet.
Thank you in advance.