Sleeper: Summing based on numberformat

[lior03]

hello
i have a table in which rows contains cell with different numberformats - #,##0.00 or 0.00% i built this vba function called server.
i want the function to sum only cells with numberformat-#,##0.00
whats wrong?

Function server(r As Range) 
Dim cell As Range
Dim i As Integer
For Each cell In Selection
If cell.NumberFormat = "#,##0.00" Then
i = cell.Value + 1
Else: Exit Function
i = server
End If
Next
End Function

thanks