Sub ShowFormulas()
 ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas
End Sub