Thread: Do Until Question
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Ram Ram is offline
external usenet poster
  
Posts: 138
Default Do Until Question
Thanks Ken this works great

"Ken Johnson" wrote:


Hi Ram,

Does this do what you want?


Sub count1()
Dim i As Integer
i = 1
Do Until Range("B" & i) = ""
Range("a" & i) = i
i = i + 1
Loop

End Sub

Ken Johnson


Reply With QuoteReply With Quote