It doesn't seem to rewrite, I have over 9500 cells and it doesn't seem to work
"Tom Ogilvy" wrote:
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/