Disregard previous...whron app.

Application.DisplayAlerts = False

Application.DisplayAlerts = True

!!Be sure to turn the Alerts back on at the end of you proceedure!!

--
Thanks,

Patrick


"Duane L Kibby" wrote:

Hi
I am using the following code to replace old data with new.

Set objRange1 =
Application.Workbooks("Analysis.xls").Worksheets(" Data").Range("B2").EntireColumn
Set ObjRange2 =
Application.Workbooks("Analysis.xls").Worksheets(" Data").Range("C2").EntireColumn

objRange1.TextToColumns ObjRange2, , , , , , True

The problem is, unless I do a manual delete on "ObjRange2" then I get the
prompt,

"Do you want to replace the contents of the destination cells?"

I always want to replace and to do programatically. I am using Excel 2000
and Windows 2000.

Thanks, Duane