Is het een ideetje om er een UDF omheen te gieten?
Function DatumPlus(Interv As String, Nummer As Double, Datum As Date) As Date
DatumPlus = DateAdd(Interv, Nummer, Datum)
End Function
Dan gebruik je in de sheet gewoon de UDF die de VBA-functie aanstuurt.