------ Register to get rid of these "In Post" ads! ------


Since you are overwriting the data in the same location clear the old data
before writing the new data

ActiveSheet.Range("$FV$34").CurrentRegion.Clear

or
ActiveSheet.Range("$FV$34").CurrentRegion.Clearcontents


"iperlovsky" wrote:

> I have the following code for which I continue to receive a cell overwrite
> prompt despite my insertion of Application.DisplayAlerts = False. Any
> suggestions?
>
> Sub Histo()
>
> Application.DisplayAlerts = False
>
> Application.Run "ATPVBAEN.XLA!Histogram", ActiveSheet.Range("_01"),
> ActiveSheet.Range("$FV$34"), _ , False, False, False, False
>
> Application.DisplayAlerts = True
>
> End Sub
>