On Feb 3, 10:37*am, jlclyde wrote:
My code is below. *It keeps throwing an error on the fist for each.
It says Next without for. *Any help will be greatly appreciated.

Thanks,
Jay

Sub SumHKCdays()
* * Dim DataSht As Worksheet
* * Dim Start As Double
* * Dim LstRow As Long
* * Dim RngHD As Range
* * Dim RngKD As Range
* * Dim RngCD As Range
* * Dim Rng As Range
* * Dim i
* * Dim Dt As Double
* * Dim X As Double
* * Dim Target As Range
* * Set Target = Range("H3")
* * Set DataSht = Sheet22
* * LstRow = DataSht.Range("A1").SpecialCells(xlCellTypeLastCel l).Row
* * Set RngHD = DataSht.Range("A5:A" & LstRow)
* * Set RngKD = DataSht.Range("BC5:BC" & LstRow)
* * Set RngCD = DataSht.Range("CD5:CD" & LstRow)

* *Do Until Target.Roww = 32
* * * * If Target.Offset(0, -7) = "" Then
* * * * * * i = 0
* * * * Else
* * * * Start = Target.Offset(0, -7) - 13
* * * * Dt = Target.Offset(0, -7)

* * For Each i In RngHD
* * * * If i <= Dt And i = Start Then
* * * * * * X = X + i.Offset(0, 1) + i.Offset(0, 6) + i.Offset(0, 11)
+ _
* * * * * * i.Offset(0, 16) + i.Offset(0, 21) + i.Offset(0, 26) + _
* * * * * * i.Offset(0, 31) + i.Offset(0, 36) + i.Offset(0, 43) +
i.Offset(0, 48)
* * * * Else
* * * * * * X = X + 0
* * * * End
* * Next i

* * For Each i In RngKD
* * * * If i <= Dt And i = Start Then
* * * * * * X = X + i.Offset(0, 1) + i.Offset(0, 6) + i.Offset(0, 11)
+ _
* * * * * * i.Offset(0, 16) + i.Offset(0, 21) + i.Offset(0, 24)
* * * * Else
* * * * * * X = X + 0
* * * * End
* * Next i
* * * * For Each i In RngCD
* * * * If i <= Dt And i = Start Then
* * * * * * X = X + i.Offset(0, 1) + i.Offset(0, 4) + i.Offset(0, 7) +
_
* * * * * * i.Offset(0, 12)
* * * * Else
* * * * * * X = X + 0
* * * * End
* * Next i
* * End If
* * i = X
* * Loop

End Sub

I thought I had looked this over but I guess I had not. Please do not
repond to this post. End ifs are not in spelling is poor all over the
place. I will post back after I clean it up and if I am still having
problems.

Thanks,
Jay