Hi All :0)

I am creating a worksheet that counts number of accidents pr. year for a given month, and it has been working perfectly until now.

I am at a point where i need to SUM values in the cells ... so that i can display how many sickdays there is, for that year in that given month!

I am pretty new to VBA and i have run out of ideas.

For counting accidents pr. year i have used this code which works very well! Now i just have to use SUM instead of counting + 1.

Can i use the same code for SUM or do i have to do something different?

I need to sum the values in the cells on my DATA sheet:
overall_accidents
83
66
1
1
34
7
15
69
9
2
4
20
2
4
VBA:
Sub Auto_Open()
    '
    ' Indlæs_data Macro
    '
    Application.ScreenUpdating = False

    ActiveSheet.ListBox1.ListIndex = -1

    Sheets("DATA").Select

    Set myRange = Sheets("DATA").Range("B:B")

    g_LastRowIndex = Application.WorksheetFunction.CountA(myRange)

    g_rows = Sheet2.UsedRange.Rows.Count - 1

    'Add year calculator
    g_maxvalue = Application.WorksheetFunction.Max(myRange)
    Sheets("Oversigt ulykkesdata").Select
    Range("A9").Select
    ActiveCell.FormulaR1C1 = g_maxvalue

    If g_rows > 1 Then
        If Sheet1.Range("A1").value <> "OK" Then
            Call fa_Count(g_rows)
            Sheet1.Range("A1").value = "OK"
        End If
    End If

    Sheet1.Activate
End Sub

Sub fa_Count(g_rows)

    g_antal = fa_årstal1(g_rows)
    g_antal = fa_årstal2(g_rows)
    g_antal = fa_årstal3(g_rows)
    g_antal = fa_årstal4(g_rows)
    g_antal = fa_årstal5(g_rows)

End Sub

Function fa_årstal1(g_rows)

    rowOffset = 2

    'Antal ulykker med fravær
    'START Regnskabsår 2011/2012
    If g_rows > 1 Then
        For i = rowOffset To g_rows
            If Sheet2.Range("B" & i) = Sheet1.Range("E9") And Sheet2.Range("C" & i) <> "Under 1 dag" And Sheet2.Range("F" & i) <> "Ja" And Sheet2.Range("D" & i) <> "Ja" Then
                AnnualTotal = AnnualTotal + 1
                Select Case Sheet2.Range("A" & i)

                    Case "Oktober"
                        Oktober1 = Oktober1 + 1

                    Case "November"
                        November1 = November1 + 1

                    Case "December"
                        December1 = December1 + 1
                End Select
            End If
        Next
        Sheet1.Range("B2").value = AnnualTotal
    End If
 Sheet1.Range("N" & 6).value = "Oktober"
    Sheet1.Range("O" & 6).value = Oktober1
    Sheet1.Range("P" & 6).value = Oktober2
    Sheet1.Range("Q" & 6).value = Oktober3
    Sheet1.Range("R" & 6).value = Oktober4

    Sheet1.Range("N" & 7).value = "November"
    Sheet1.Range("O" & 7).value = November1
    Sheet1.Range("P" & 7).value = November2
    Sheet1.Range("Q" & 7).value = November3
    Sheet1.Range("R" & 7).value = November4

    Sheet1.Range("N" & 8).value = "December"
    Sheet1.Range("O" & 8).value = December1
    Sheet1.Range("P" & 8).value = December2
    Sheet1.Range("Q" & 8).value = December3
    Sheet1.Range("R" & 8).value = December4
End function