Dim rng AS Range more than once

[sitewolf]

OK, maybe I'm just not awake enough today, but I also should know more VBA than I do

I'm using VBA to delete entire rows if a specific column/cell is blank- that part is fine.
I'm using Dim rng As Range, cell As Range, del As Range.....

But after that I'd like to delete entire rows if a different column/cell is blank

What do I need to rename to be able to do both?
I thought I could just go to rng2 or something...

"Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("b1:b70000"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) = "" _
Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next cell
On Error Resume Next
del.EntireRow.Delete"

 

[Fluff]

You can replace all your code with

Range("B:B").SpecialCells(xlBlanks).EntireRow.Delete

& then you can do the same thing with a different range

 

[sitewolf]

Then I run into "Unable to get the SpecialCells property of the Range class" unfortunately

 

[MARK858]

Are your cells actually blank or are they formulas giving "" as a result?

 

[Fluff]

If they are not formulas, do you have a merged cells, or sheet protection?

 

[sitewolf]

Are your cells actually blank or are they formulas giving "" as a result?

Data is from a csv exported from an online database- so could be both.
I've gotten around this by using the longer dim rng coding in separate macros, but would prefer to know cleaner ways to do this type of thing.