Brettdj -> you're right...actually I had done that, but somehow it slipped :-)
I have used something like this before as a standard rightclick menu for me..

Selection.SpecialCells(xlCellTypeConstants, 23).Select
If Selection.Count > 0 Then Selection.ClearContents