And in VBA:

Format(ActiveCell, "dddd")