Excel Vba Replace String In Honeycomb