Crie um intervalo de células que você deseja limpar e, em seguida, tente algo assim.
if instr(rng,".??") > 0 then rng.NumberFormat = "#,##0.00:-#,##0.00"
Se você deseja fornecer um pouco melhor de informações sobre sua estrutura de dados, minha resposta seria mais específica para seu problema.