Thanks, will give that a whirl. Thanks for the quick response.

I think I've managed to resolve this slightly differently via:

=DateAdd(DateInterval.Quarter, DateDiff(DateInterval.Quarter, CDate("1/1/1900"), Today()) + 1, CDate("31/12/1899"))