Utilizar rangos como parametros opciones - Funciones vba

Prueba con lo siguiente, esta probada con Excel 2007, lo único es que necesitas colocarlo en un módulo para que funcione sin problemas:

Public Function testfuncion(S As String, Optional R As Range = Nothing) As String
testfuncion = S 
if not R is nothing then
For Each cell In R
testfuncion = testfuncion & cell 
Next cell
end if
End Function