Public Function sum_Bereich(Bereich1 As Range, Optional Bereich2 As Range) As _
  Double
  Dim dblErg As Double
 
  ' Kein Summierungsbereich angegeben?
  If Bereich1 Is Nothing Then
    Exit Function
  End If
 
  ' Summe berechnen
  dblErg = Application.WorksheetFunction.Sum(Bereich1)
 
  ' Summe als Rückgabewert setzen
  sum_Bereich = dblErg
 
  ' Wurde Bereich2 angegeben?
  If Not Bereich2 Is Nothing Then
 
    ' hier Aktionen mit Bereich2 ausführen
 
  End If
 
End Function

Viel Spass,
R@lf