justdriving
09-17-2011, 01:50 PM
I know that there are certain rows which don't have any value in any cell.
I am trying to delete an empty row.
How can I correct this program in VBA: -
Sub test()
For rownum = 1 to EndofRowCalculatedFromA65536
For colnum = 1 to 256
If Cells(rownum, colnum) <> vbnullstring Then
Else
Delete Entirerow
End If
Next colnum
Next rownum
End Sub
I am trying to delete an empty row.
How can I correct this program in VBA: -
Sub test()
For rownum = 1 to EndofRowCalculatedFromA65536
For colnum = 1 to 256
If Cells(rownum, colnum) <> vbnullstring Then
Else
Delete Entirerow
End If
Next colnum
Next rownum
End Sub