I will try the above, this is what I have so far. I do have the recalc all
set to manual.

Sub Col_Calc()
Dim coltocal As String
coltocal = Trim(InputBox(Prompt:="Enter the column to calculate--"))
Worksheets("Part1").UsedRange.Columns(coltocal).Ca lculate
End Sub

" wrote:

Jason,

To follow up on the calclulate method, set your workbook to manual
recalc and place this in the worksheet module in question. Change the
range to your column(s)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
ActiveCell.Calculate
End If
End Sub



Rookie_User wrote:
I have two worksheets that both have 65k rows and when I do a formula it
takes forever because it recalculates all columns with formula's -- this take
about ten minutes on my laptop. Is there a snippet of code that I can put in
a macro that will ask me sheet name and column to calculate so it will only
do that specific column?

Jason