Thread: Loop of Doom ARRRG!
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Jarek Kujawa[_2_] Jarek Kujawa[_2_] is offline
external usenet poster
  
Posts: 896
Default Loop of Doom ARRRG!
try

Do Until Cells(QuoteRow, x) = ""
If Cells(QuoteRow, x).Offset(0, 1) = "" Then
Cells(QuoteRow, x).Offset(0, 1) = Dt
GoTo E
Else
x = x + 1
End If
Loop
Reply With QuoteReply With Quote