AUTOMATIC DELETE
Could anyone please tell me how to write a sub() to automatically delete
null numval lines in a sheet viz
sub DelNul()
Dim Cell As Range
For Each Cell In Sheets("'Sheet1").UsedRange
If Sheets("Sheet1").Range(Cell.Address).value - vbNullString Then
Delete Line 'OR SOMETHING LIKE THIS?
Else
End If
Next
End Sub
|