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


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

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

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


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