That worked fine for me. What is the problem?

--
Regards,
Tom Ogilvy

"Bob L" wrote in message
...
rewrite in the same cell.

I tried the following

Sub RewriteColumn()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set isect = Intersect(Columns(ActiveCell.Column),
ActiveSheet.UsedRange)
If isect Is Nothing Then
MsgBox "This is an empty column!"
Exit Sub
End If

For Each cel In isect
valu = cel.Value
cel.FormulaR1C1 = valu
Next cel

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub


"sp00nix " wrote:

rewrite to where? more info please...


---
Message posted from http://www.ExcelForum.com/