Loops and next not working

[khansen97]

I have some code that I am trying to get to run. Logically this is what I want it to do:

For gdprnum = 1 To 150
gdpcarline = ActiveSheet.Cells(gdprnum, 1).Value
if volumcarline = gdpcarline Then
Workbooks("NEW 04_FCST-May.xls").Activate
Worksheets("Volume Summary by PCBS").Activate
xcorrect = ActiveSheet.Cells(forrnum, cnum).Value
exit for
Else
Next gdprnum
End If
Next gdprnum

However, that is not working correctly. I keep getting an error saying thatmy first next gdprnum is without a for.

any suggestions?

 

[EBGreen]

There is no reason for the else clause in your if-then statement. Remove it and you won't have this problem.

[blue]"Well, once again my friend, we find that science is a two headed beast. One head is nice, it gives us aspirin and other modern conveniences,...but the other head of science is BAD! Oh, beware the other head of science, Arthur; it bites!!" - The Tick[/blue]