As I go through my spreadsheet I am calculating "max" and "min" values. When
I decide a column to work in I want to calculate the value and then format
the column to a 4-point decimal value "0.0000". I don't know in advance
which column I need to work in, but when I find one I want to perform those
two operations. I'm trying to set up a macro that is will be achored to the
current column I am working in. How can I do that?

Thanks!

Give this code a try...

Sub Test()
With ActiveCell.EntireColumn
Min = WorksheetFunction.Min(.Cells)
Max = WorksheetFunction.Max(.Cells)
.NumberFormat = "0.0000"
End With

' You didn't say what you wanted to do
' with Min, Max, so I just show them
MsgBox Min & " // " & Max
End Sub

Just activate any cell in the column and then run the code.

--
Rick (MVP - Excel)


"Graphically Challenged" <(E-Mail Removed)>
wrote in message news22EA845-18C1-4CE2-9B20-(E-Mail Removed)...
> As I go through my spreadsheet I am calculating "max" and "min" values.
> When
> I decide a column to work in I want to calculate the value and then format
> the column to a 4-point decimal value "0.0000". I don't know in advance
> which column I need to work in, but when I find one I want to perform
> those
> two operations. I'm trying to set up a macro that is will be achored to
> the
> current column I am working in. How can I do that?
>
> Thanks!
>