Repeat Macro until Empty Cell Reached - Excel Help Forum

I modified it like this: Sub ED() Do ActiveCell.Value = Mid(ActiveCell.Value, 6) ActiveCell.Offset(1, 0).Select If IsEmpty(ActiveCell) Then Exit Do End If Loop ActiveCell.Value = "END" ActiveCell.Offset(0, 1).Select Do ActiveCell.Value = Mid(ActiveCell.Va

www.excelforum.com