sub a() [r9] = Application.WorksheetFunction.Max([r3],[s4]) '[r9].NumberFormatLocal = "yyyy-mm-dd"end sub
[R9]=iif([R3]>[S4],[R3],[S4])