My problem is that I get a "Loop without Do" statement (my code might have
other problems....I'll get to them later !)

No need to tell ya guys I'm a newbie...
Thanks in advance
Marc

Here's my code:


Sub NoComact()

Dim counter As Integer
Dim compteur As Integer
counter = 1
compteur = 1

Do
While counter < 1000
Do
Range("B, counter").Select
While Right("B, counter", 1) < Right("B, counter + 1", 1)
Range("C, counter").Value = "BRG-000 & compteur "
counter = counter + 1
Loop
compteur = compteur + 1
Loop
End Sub

(btw, compteur is counter in french)