blairintern
New Member
- Joined
- Jul 16, 2007
- Messages
- 21
I have a full loop written with correct code within...but i keep receiving an error of "Loop without the do"
Here is the code
I am at a loss as to what could be causing this. Let me know if any information is required to solve this problem...Thanks!
Here is the code
Code:
Do
With Sheets("Input").Range("A1")
If .Offset(i, 0) Is Nothing Then
i = i + 1
Else
Set Deal = New IssueClass
Deal.Purpose = .Offset(i, 2) & " " & .Offset(i, 4) _
& " " & .Offset(i, 5)
Deal.DatedDate = .Offset(i, 0)
Deal.Series = .Offset(i, 3)
Deal.Par = .Offset(i, 7)
Deal.CallDate = .Offset(i, 8)
Deal.CallPrice = .Offset(i, 9)
Deal.Fitch = .Offset(i, 10)
Deal.Moody = .Offset(i, 11)
Deal.SandP = .Offset(i, 12)
Deal.Underwriter = .Offset(i, 16)
Deal.Counsel = .Offset(i, 17)
' Deal.Refunded = .Offset(i, 19)
' Deal.Insurance = .Offset(i, 26) ' not yet on form
Set AllIssues(n) = Deal
n = n + 1
i = i + 1
Loop Until ActiveCell.Range("A1").Offset(i, 0).Value = "Session Det"
I am at a loss as to what could be causing this. Let me know if any information is required to solve this problem...Thanks!