Loop through workbook and calculate sum in each worksheet

[I3atnumb3rs]

Hello,

I'm trying to have my code figure out how many worksheets there are and to loop through each one to calculate and place the sum of column F in the first blank row in column F in each worksheet. My code is only partly working. Please Help!

Sub WorksheetLoop()



Dim lastRowInColA As Integer
Dim totPointsRow As Integer
Dim columnSum As Double
Dim LastRowNum As Long
Dim WS_Count As Integer

' Set WS_Count equal to the number of worksheets in the active
' workbook.

WS_Count = ActiveWorkbook.Worksheets.Count


' Begin the loop through all sheets
For i = 1 To WS_Count


With ActiveWorkbook.Worksheets(i).Range("F" & Rows.Count).End(xlUp).Select


lastRowInColA = Selection.Row
totPointsRow = lastRowInColA + 1
Range("E" & totPointsRow) = "Total:"
Range("F" & totPointsRow) = Application.WorksheetFunction.Sum(Columns("F:F"))



End With

Next i

End Sub

 

[Fluff]

How about

Sub I3atnumb3rs()
   Dim Ws As Worksheet

   For Each Ws In Worksheets
      With Ws.Range("F" & Rows.Count).End(xlUp).Offset(1)
         .Offset(, -1).Value = "Total:"
         .FormulaR1C1 = "=sum(r1c:r[-1]c)"
         .Value = .Value
      End With
   Next Ws
End Sub

 

[I3atnumb3rs]

Thank You!

 

[Fluff]

You're welcome