Select and delete contents below diagonal of cell array

Jooles,

OK. That was an oversight error by me. Sorry about that.
In this line of the Post#11 code

If Len(s) > 0 Then .Range(Mid(s, 2)).ClearContents

just delete the period (i.e. fullstop or point) immediately before Range.