Applying Macro to all worksheets (tabs)

Hi,

I have written a macro to sum column N in a specified worksheet. But I need the code to apply the macro to all the worksheets in my workbook.
I have been searching how to do this to no avail. Can anyone help?

Here is my code:

Sub Sum()

Dim LR As Long
With Sheets("UNIVERSITY OF HELSINKI")
    LR = .Range("N" & Rows.Count).End(xlUp).Row
    .Range("N" & LR + 1).Value = WorksheetFunction.Sum(.Range("N1:N" & LR))
End With
End Sub

Hi CBailey and welcome to the forum.

You need to learn about worksheet indexes and worksheets.count. http://msdn.microsoft.com/en-us/libr...ffice.11).aspx
Try this..

Option Explicit

Sub NColumSummer()
 
Dim LastRow As Long
Dim ShtCtr As Long

For ShtCtr = 1 To Worksheets.Count
    With Sheets(ShtCtr)
        LastRow = .Range("N" & Rows.Count).End(xlUp).Row
        .Range("N" & LastRow + 1).Value = WorksheetFunction.Sum(.Range("N1:N" & LastRow))
    End With
Next ShtCtr

End Sub

Also - you should never name a sub a normal function that is in Excel. That is - you named your subroutine "Sum" but there is already a Sum() function.

Also #2 - You should edit your original post and put code marks around the code so it looks like mine. You select the code text and then click on the "#" icon that will put code tags around it and look like mine. It is simply easier to read and by the forum rules.