User:Emry/VBA Snippets

From NexusCrossing

These are snippets of code created while working on spreadsheets for work.

They are VBA code for Microsoft Excel 2003.

Mainly, I created a module for the worksheet, and put them in there.

Public Function countParticipants(rangeVal)
    countParticipants = 0
    For Each cell In Range(rangeVal.Address).Cells
        If cell.Value <> 0 Then countParticipants = countParticipants + 1
    Next
End Function