Range("D2") = Month(Sheets(gstrControl).Range("N10")) & "/" &
Year(Sheets(gstrControl).Range("N10")) + Range("D1").value

I need to create a function that is able to take in the parameters and
automatically perform the above calculation for a range of cells.

Any help would be much appreciated.
Thanks in advance