try something like this

Sub example()

Dim first As Integer

Worksheets("Sheet3").Activate

Range("A1").Select

first = 1

Do While ActiveCell.Offset(0, first).Value < "Running Totals"
first = first + 1
Loop

Columns(first).Select

Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

Range("A1").Select

End Sub

you would have to run this every month. this assumes that the sheet is
called "sheet3" so you would have to change that appropriately. It also
assumes the heading is in row 1 so if it is not, you have to change the 0 in
Do While ActiveCell.Offset(0, first).Value < "Running Totals" to 1 or 2 or
whatever depending on which row in is in.

hope that helps


"GregR" wrote:

I have a spreadheet that has a column, titled "Running Totals". This
column moves each month after the first of the month. When I move that
column, I want to automatically convert any formulas to the left of the
column into their numeric value. How? TIA

Greg