Case without Select Case error problem

[Ayo]

Can someone take a look at this code and tell me why I am getting a "Case
without Select Case" error on "Case 4" ?
Thank you.

Private Sub FillSummary(cs, rw, lastrow)
'
'Macro to Populate the Project Summary Report
'Macro written 5/13/2008 by Ayoade Ojikutu
'
Dim c As Range, c1 As Range, clusterRange As Range, commentsRange As Range,
ms155Range As Range
Dim i As Integer, charPos As Integer, colIndex As Integer
Dim searchString As String, searchChar As String

Select Case cs
Case 1
Worksheets(2).Range("B2:M8").Select
Application.CutCopyMode = False
Selection.Copy
Worksheets(1).Activate
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

Case 2
searchChar = "/"
colIndex = 17
For Each c In Worksheets(2).Range("B12:B15").Cells
searchString = c.Value
charPos = InStr(1, searchString, searchChar, 1)
Worksheets(1).Range("B" & colIndex).Value = Mid(c.Value, charPos
+ 2, 3)
Worksheets(1).Range("C" & colIndex).Value = Mid(c.Value, 1,
charPos - 2)
Worksheets(1).Range("D" & colIndex).Value =
Worksheets(1).Range("B" & colIndex).Value - Worksheets(1).Range("C" &
colIndex).Value
Worksheets(1).Range("E" & colIndex).Value = c.Offset(0, 1).Value
Worksheets(1).Range("F" & colIndex).Value =
Worksheets(1).Range("C" & colIndex).Value / Worksheets(1).Range("B" &
colIndex).Value
colIndex = colIndex + 1
Next c
Worksheets(1).Select
With Selection
.Range("B22").Value =
Application.WorksheetFunction.Sum(Range("B17:B20"))
.Range("C22").Value =
Application.WorksheetFunction.Sum(Range("C17:C20"))
.Range("D22").Value =
Application.WorksheetFunction.Sum(Range("D1720"))
.Range("F22").Value =
Application.WorksheetFunction.Sum(Range("F17:F20"))
End With

Case 3
Set clusterRange = Worksheets(2).Range("B6:B" & lastrow)
Set commentsRange = Worksheets(2).Range("AF6" & lastrow)
Set ms155Range = Worksheets(2).Range("AO6:AO" & lastrow)

For Each c1 In Worksheets(1).Range("A27:A32").Cells
c1.Select
i = 0
For Each c In clusterRange.Cells
If Mid(c.Value, 4, 1) = Right(c1.Value, 1) Or Mid(c.Value,
3, 2) = Right(c1.Value, 2) Then
i = i + 1
End If
Next c
c1.Offset(0, 1).Value = i

i = 0
For Each c In commentsRange.Cells
If c.Value = "Accepted" And c.Offset(0, 9).Value = "Yes" Then
If Mid(c.Offset(0, -9).Value, 4, 1) = Right(c1.Value, 1)
Or Mid(c.Offset(0, -9).Value, 3, 2) = Right(c1.Value, 2) Then
i = i + 1
End If
End If
Next c
c1.Offset(0, 2).Value = i

i = 0
For Each c In ms155Range.Cells
If c.Value = "Not completed" And c.Offset(0, 9).Value =
"N/A" Then
If Mid(c.Offset(0, -9).Value, 4, 1) = Right(c1.Value, 1)
Or Mid(c.Offset(0, -9).Value, 3, 2) = Right(c1.Value, 2) Then
i = i + 1
End If
End If
Next c
c1.Offset(0, 3).Value = i

i = 0
For Each c In ms155Range.Cells
If c.Value = "Nothing Received" And c.Offset(0, 9).Value =
"N/A" Then
If Mid(c.Offset(0, -9).Value, 4, 1) = Right(c1.Value, 1)
Or Mid(c.Offset(0, -9).Value, 3, 2) = Right(c1.Value, 2) Then
i = i + 1
End If
End If
Next c
c1.Offset(0, 4).Value = i

Case 4
Set clusterRange = Worksheets(2).Range("D3" & lastrow)
Set ms095Range = Worksheets(2).Range("O3:O" & lastrow)
Set ms109Range = Worksheets(2).Range("U3:U" & lastrow)
Set launchRange = Worksheets(2).Range("AM3:AM" & lastrow)

For Each c1 In Worksheets(1).Range("A39:A46").Cells
c1.Select
i = 0
For Each c In clusterRange.Cells
If c.Value = Right(c1.Value, 1) Then
i = i + 1
End If
Next c
c1.Offset(0, 1).Value = i

i = 0
For Each c In ms095Range.Cells
If c.Value <> "" And c.Offset(0, -11).Value =
Right(c1.Value, 1) Then
i = i + 1
End If
Next c
c1.Offset(0, 2).Value = i

i = 0
For Each c In ms109Range.Cells
If c.Value <> "" And c.Offset(0, -17).Value =
Right(c1.Value, 1) Then
i = i + 1
End If
Next c
c1.Offset(0, 3).Value = i

Dim launchDate As Date
i = 0
For Each c In launchRange.Cells
If c.Value <> "" And c.Offset(0, -35).Value =
Right(c1.Value, 1) Then
launchDate = c.Value
End If
Next c
c1.Offset(0, 4).Value = launchDate
Next c1
End Select
End Sub

 

[Mike H]

Hi,

It's because there's no
Next c1
fot this loop. You must close the loop before going onto Case 4

Case 3
Set clusterRange = Worksheets(2).Range("B6:B" & lastrow)
Set commentsRange = Worksheets(2).Range("AF6" & lastrow)
Set ms155Range = Worksheets(2).Range("AO6:AO" & lastrow)

For Each c1 In Worksheets(1).Range("A27:A32").Cells

Mike

 

[Ayo]

Thanks. I found it.

Hi,

It's because there's no
Next c1
fot this loop. You must close the loop before going onto Case 4

Case 3
Set clusterRange = Worksheets(2).Range("B6:B" & lastrow)
Set commentsRange = Worksheets(2).Range("AF6" & lastrow)
Set ms155Range = Worksheets(2).Range("AO6:AO" & lastrow)

For Each c1 In Worksheets(1).Range("A27:A32").Cells

Mike