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

thanks, that worked. so simple.

I appreciate the help.


"Joel" wrote:

> 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
> >