View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
zebra zebra is offline
external usenet poster
 
Posts: 1
Default 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