Hopefully a real easy vba question

[Brad]

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(Person1erson16!)"&"R"&i&"C"&j
End If
Next j
Next i
End Sub

 

[Luke M]

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(Person1erson16!R" & i & "C" & j & ")"
End If
Next j
Next i
End Sub

 

[Brad]

Thanks - so close

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

Thanks again!!