Change .Importance = olImportanceHigh to .Importance = 2 see if that works.