Works fine for me.

What do you have in M7 and L7?

--
HTH

Bob Phillips

"timmulla" wrote in message
...
Hi I was wondering if anyone could help me trouble shoot my code. I'm
trying
to place specific text "LBC04" in blank cells using a Do While Loop to
determine the appropiate cells. I've used the following code successfully
numerous times, however, in this situation the "LBC04" is not being
entered
into the cells. The Loop looks like it's working correctly, however, the
text just isn't being placed in the cells.


Can anyone see a problem with my code?

Public Sub TEST10()

[M7].Select

Do While ActiveCell.Offset(0, -1).Value ""

If ActiveCell.Value = "" Then
ActiveCell.Value = "LBC04"

End If

ActiveCell.Offset(1, 0).Select

Loop

End Sub
--
Regards,

timmulla