G
Guest
I just want to delete the first and third row if column "A" is blank. THis
script deletes the first row. I need to add to the range the 3rd row. Can
you help me change the range?
thanks,
Sub deleteDateRow1()
Dim Rng As Range
Set Rng = Range("A1")
With Rng
If Columns("A").SpecialCells(xlCellTypeBlanks) Then
..EntireRow.Delete Shift:=xlUp
Else
Exit Sub
End If
End With
End Sub
script deletes the first row. I need to add to the range the 3rd row. Can
you help me change the range?
thanks,
Sub deleteDateRow1()
Dim Rng As Range
Set Rng = Range("A1")
With Rng
If Columns("A").SpecialCells(xlCellTypeBlanks) Then
..EntireRow.Delete Shift:=xlUp
Else
Exit Sub
End If
End With
End Sub