Excel: Clear all cell entries EXCEPT formulas?

This is almost exactly what I am looking for except...
I am using a Personal Budget spreadsheet that is perdesgined from the
Template Download site.
http://office.microsoft.com/en-us/te...CT011377171033.
I have modified it to work the way I want it to work. I want to create a
button that upon clicking will clear all cells containing entries and
calculations so they can receive new data. The macro by Jason is cool but how
can I make it work with a button? Also the sheet has several cell ranges that
would need to be cleared without clearing the formulas the cells contain. Any
ideas on how I can make this work?

"Jason Morin" wrote:

> Select the range of cells and run this macro:
>
> Sub ClearAllSaveFormulas()
> Dim cell As Range
> For Each cell In Selection
> With cell
> If Not .HasFormula Then
> .ClearContents
> End If
> End With
> Next
> End Sub
>
> ---
> To run, press ALT+F11, go to Insert > Module, and paste in the code above.
> Press ALT+Q. Now select your range of cells and go to Tools > Macro > Macros
> and run the macro.
>
> HTH
> Jason
> Atlanta, GA
>
>
> "newsgal" wrote:
>
> > Excel:
> > Is there any way to clear all cell entries EXCEPT formulas so that a
> > spreadsheet that needs to have new entries every month can be cleared easily
> > for the new month without having to work around the formulas when clearing
> > the cells?

"dvonj" wrote:

> This is almost exactly what I am looking for except...
> I am using a Personal Budget spreadsheet that is perdesgined from the
> Template Download site.
> http://office.microsoft.com/en-us/te...CT011377171033.
> I have modified it to work the way I want it to work. I want to create a
> button that upon clicking will clear all cells containing entries and
> calculations so they can receive new data. The macro by Jason is cool but how
> can I make it work with a button? Also the sheet has several cell ranges that
> would need to be cleared without clearing the formulas the cells contain. Any
> ideas on how I can make this work?
>
> "Jason Morin" wrote:
>
> > Select the range of cells and run this macro:
> >
> > Sub ClearAllSaveFormulas()
> > Dim cell As Range
> > For Each cell In Selection
> > With cell
> > If Not .HasFormula Then
> > .ClearContents
> > End If
> > End With
> > Next
> > End Sub
> >
> > ---
> > To run, press ALT+F11, go to Insert > Module, and paste in the code above.
> > Press ALT+Q. Now select your range of cells and go to Tools > Macro > Macros
> > and run the macro.
> >
> > HTH
> > Jason
> > Atlanta, GA
> >
> >
> > "newsgal" wrote:
> >
> > > Excel:
> > > Is there any way to clear all cell entries EXCEPT formulas so that a
> > > spreadsheet that needs to have new entries every month can be cleared easily
> > > for the new month without having to work around the formulas when clearing
> > > the cells?