I have the following code:
Range("c2").Select
largo:
Do While Len(ActiveCell) < 3
ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(1, 0).Activate
GoTo largo
The purrpose of the code is to check in colum C the cells that have less than 3 characters, if they have less than 3, the clear the cell. The column C only has 80 rows with information.
It works, the problem is that never stops, how can I make it to stop after the last cell with information or after 100 times.
Thanks
Hugo
Range("c2").Select
largo:
Do While Len(ActiveCell) < 3
ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(1, 0).Activate
GoTo largo
The purrpose of the code is to check in colum C the cells that have less than 3 characters, if they have less than 3, the clear the cell. The column C only has 80 rows with information.
It works, the problem is that never stops, how can I make it to stop after the last cell with information or after 100 times.
Thanks
Hugo