General question about a macro....

[sssb2000]

hi,
i just wanted to know where i would need to close this Do loop and how!
the following gives me an error saying: "Loop without Do"

please advise

Set rngT = rngAF.Offset(0, 10).Cells(1)
            Set rngY = rngAF.Offset(0, 15).Cells(1)
            Set allofrngY = rngToTest.Offset(0, 15)
           Do Until [G38] = 0
               If rngY.Value = Application.WorksheetFunction.Min(allofrngY) Then
               rngY.Value = rngY.Value + 1
               [G38].Value = [G38].Value - 1
              Loop
              End If

 

[Von Pookie]

On first glance, I would say probably because you have the End If outside of the Loop instead of inside. Just switch them around.

 

[sssb2000]

I keep forgetting that
thank you