Заменить формат ячейки на общий - VB

Формулировка задачи:

Подскажите, как заменить формат ячеек на общий для тех, у которых установлен "Числовой" (могут быть разные подвиды) из списка форматов, но стиль ячеек не равен некоторому style.
И почему, кстати, происходит такое: в ячейке было какое-то число при числовом формате, если поменять на общий, а потом опять на числовой, то появляются доп.цифры?

Решение задачи: «Заменить формат ячейки на общий»

textual
                            Листинг программы 
                        
                            x = ActiveCell.NumberFormat
<font color="blue">If</font> x Like <font color="teal">"*[#0]*[!%]"</font> <font color="blue">Then</font> MsgBox <font color="teal">"Меняем формат"</font>