Sub blah()
For Each sht In ThisWorkbook.Worksheets
With sht
Set sumCell = .Cells(.Rows.Count, "F").End(xlUp)
sumCell.Offset(1).Value = Application.Sum(Range(.Cells(5, "F"), sumCell))
End With
Next sht
End Sub
Sub blah()
For Each sht In ThisWorkbook.Worksheets
With sht
Set sumCell = .Cells(.Rows.Count, "F").End(xlUp)
sumCell.Offset(1).Value = Application.Sum(Range(.Cells(5, "F"), sumCell))
End With
Next sht
End Sub