I haven't tested this, but it looks like the last line show be
Loop Until ActiveCell.Address = "$E$" & strLstRw

TimT wrote:
Does anyone know how to cycle through a column or range and replace empty
cells with a value like 0 or NONE? The last row can vary each time...

Here is the code I have so far:

Dim strLstRw As String
strLstRw = ActiveSheet.Range("A65536").End(xlUp).Row


'change empty cells to "NONE"

Range("e11").Select


Do

If IsEmpty(ActiveCell) = True Then

ActiveCell.Value = "NONE"
ActiveCell.Offset(1, 0).Select

End If

Loop Until ActiveCell = "e" & strLstRw