The line with activecell.formula is not correct. What I'm trying to do is to
add up the time for person 1-16 on the total page if the date isn't a holiday.

Sub TotalThemUp()
Dim i As Long
Dim j As Long
Range("startpoint").Select
Range("B11:AF22").ClearContents
For i = 1 To 12
For j = 1 To 31
If ActiveCell.Offset(i, j) < "H" Then
ActiveCell.Formula&"R"&i&"C"&j =
"=sum(Person1:Person16!)"&"R"&i&"C"&j
End If
Next j
Next i
End Sub

I believe you are wanting multiple formulas as an output in the range of
B11:AF22?
Corrected syntax:

Sub TotalThemUp()
Dim i As Long
Dim j As Long
Range("startpoint").Select
Range("B11:AF22").ClearContents
For i = 0 To 11
For j = 0 To 30
If ActiveCell.Offset(i, j) < "H" Then
ActiveCell.Offset(i, j).FormulaR1C1 = _
"=sum(Person1:Person16!R" & i & "C" & j & ")"
End If
Next j
Next i
End Sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"Brad" wrote:

The line with activecell.formula is not correct. What I'm trying to do is to
add up the time for person 1-16 on the total page if the date isn't a holiday.

Sub TotalThemUp()
Dim i As Long
Dim j As Long
Range("startpoint").Select
Range("B11:AF22").ClearContents
For i = 1 To 12
For j = 1 To 31
If ActiveCell.Offset(i, j) < "H" Then
ActiveCell.Formula&"R"&i&"C"&j =
"=sum(Person1:Person16!)"&"R"&i&"C"&j
End If
Next j
Next i
End Sub

Thanks - so close

Thanks for providing an example on the format to use. Made the necessary
adjustment and got what I needed....

Thanks again!!

"Luke M" wrote:

I believe you are wanting multiple formulas as an output in the range of
B11:AF22?
Corrected syntax:

Sub TotalThemUp()
Dim i As Long
Dim j As Long
Range("startpoint").Select
Range("B11:AF22").ClearContents
For i = 0 To 11
For j = 0 To 30
If ActiveCell.Offset(i, j) < "H" Then
ActiveCell.Offset(i, j).FormulaR1C1 = _
"=sum(Person1:Person16!R" & i & "C" & j & ")"
End If
Next j
Next i
End Sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"Brad" wrote:

The line with activecell.formula is not correct. What I'm trying to do is to
add up the time for person 1-16 on the total page if the date isn't a holiday.

Sub TotalThemUp()
Dim i As Long
Dim j As Long
Range("startpoint").Select
Range("B11:AF22").ClearContents
For i = 1 To 12
For j = 1 To 31
If ActiveCell.Offset(i, j) < "H" Then
ActiveCell.Formula&"R"&i&"C"&j =
"=sum(Person1:Person16!)"&"R"&i&"C"&j
End If
Next j
Next i
End Sub