Aqui está o snippet de código para fazer isso, supondo que você queira modificar a célula atualmente selecionada:
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+q
'
On Error Resume Next 'In case "Selection" is something that doesn't have a NumberFormat property
If Selection.NumberFormat = "0" Then Selection.NumberFormat = "0.00" Else: Selection.NumberFormat = "0"
End Sub